Adding about info to the site

xdaDaveShaw · Dec 18, 2018 · 6b53ece · 6b53ece
1 parent 326787a
commit 6b53ece
Show file tree

Hide file tree

Showing 2 changed files with 46 additions and 12 deletions.
diff --git a/sass/main.sass b/sass/main.sass
@@ -12,6 +12,14 @@ $black: #202020
     color: $xmasRed;
     font-weight: bolder;
 
+.navbar-end
+  a
+    color: black;
+    &:hover
+      color: white;
+    padding-top: .2em;
+    padding-right: .2em;
+
 .content
   ul
     margin-top: .5em

diff --git a/src/View.fs b/src/View.fs
@@ -190,6 +190,33 @@ let renderSantasList list =
       ul [ ] items
     ]
 
+let renderNavbar =
+  Navbar.navbar [ Navbar.Color Color.IsPrimary ] [
+    Navbar.Brand.div [ ] [
+     a [ Href "/" ] [
+      Image.image [ Image.Is48x48 ] [
+        img [ Src "img/brand.png" ]
+      ]]
+    ]
+
+    Navbar.menu [ ] [
+      Navbar.Item.div [ ] [
+        Heading.h2 [
+        ] [ str "Santa's Xmas Manager"]
+      ]
+
+      Navbar.End.div [ ] [
+        a [
+          Href "https://github.com/xdaDaveShaw/XmasList"
+        ] [
+          Icon.icon [ Icon.Size Size.IsLarge ] [
+            Fa.i [ Fa.Brand.Github; Fa.Size Fa.Fa3x ] [ ]
+          ]
+        ]
+      ]
+    ]
+  ]
+
 let renderClearStorage dispatch currentEditor =
 
   let createButton text icon color msg =
@@ -212,26 +239,25 @@ let renderClearStorage dispatch currentEditor =
   Content.content [ ] [
     Button.list [ ] buttons ]
 
+let renderFooter =
+  Footer.footer [ ] [
+    str "Santa's Xmas Manager, created by "
+    a [Href "https://taeguk.co.uk/about/"] [ str "Dave Shaw" ]
+    str " for the "
+    a [ Href "https://taeguk.co.uk/blog/santas-xmas-list-in-fable/" ] [ str "F# Advent Calendar 2018" ]
+  ]
+
 let root model dispatch =
   div [ ] [
 
-    Navbar.navbar [ Navbar.Color Color.IsPrimary ] [
-      Navbar.Brand.div [ ] [
-         a [ Href "/" ] [
-          Image.image [ Image.Is48x48 ] [
-            img [ Src "img/brand.png" ]
-          ]]]
-
-      Navbar.Item.div [ ] [
-        Heading.h2 [
-        ] [ str "Santa's Xmas Manager"]
-      ]
-    ]
+    renderNavbar
 
     Container.container [ ] [
       renderAddChild dispatch model
       renderChildList dispatch model
       renderSantasList model.SantasList
       renderClearStorage dispatch model.CurrentEditor
     ]
+
+    renderFooter
   ]