more work

.gitignore

@@ -26,6 +26,9 @@ static/app.css
 static/articles
 static/paragraph_quotes
 
+# @todo: Fix the creation of duplicates
+static/styleGuideImages/imageStyles
+
 Application/Migration
 
 # JWT

Web/Element/PageTitle.hs

@@ -0,0 +1,16 @@
+module Web.Element.PageTitle where
+
+import Web.View.Prelude
+
+import Application.Helper.Icons
+import Web.Element.ElementWrap
+import Web.Element.Types
+
+
+render :: Text -> Html
+render text =
+    text
+        |> cs
+        |> wrapHeaderTag 1
+
+

Web/Element/Quote.hs

@@ -1,4 +1,5 @@
 module Web.Element.Quote where
+
 import Web.View.Prelude
 
 import Application.Helper.Icons

Web/View/StyleGuide/Index.hs

@@ -4,6 +4,7 @@ import Web.Element.Types
 import Web.View.Prelude
 
 import Web.Element.Cta
+import Web.Element.PageTitle
 import Web.Element.Quote
 
 data IndexView = IndexView { }
@@ -34,11 +35,15 @@ instance View IndexView where
 
             -- All the elements to be displayed in the Style Guide.
             elements =
-                [ renderTitleAndElementNoContainer "CTA" cta
+                [ renderTitleAndElementWideContainer "Page Title" pageTitle
+                , renderTitleAndElementNoContainer "CTA" cta
                 , renderTitleAndElementNoContainer "Quote" quote
                 ]
                 |> mconcat
 
+            pageTitle = "The source has extended, but not everyone fears it"
+                |> Web.Element.PageTitle.render
+
             cta = RenderCta
                 { title = "Hello, World!"
                 , body = "This is a test of the __emergency__ broadcast system."
@@ -52,7 +57,7 @@ instance View IndexView where
             quote = RenderQuote
                 { body = "The quick brown fox jumps over the lazy dog"
                 , subtitle = "An old proverb"
-                , imageUrl = "/styleGuideImages/kitten-with-wings.jpg"
+                , imageUrl = "/styleGuideImages/8f8827de-e5d4-4ee7-b0a3-abae36274338"
                 }
                 |> Web.Element.Quote.render