add subdomains to footer

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>

css/default.css

@@ -63,6 +63,19 @@ article .header {
   text-decoration: none;
 }
 
+.subdomains {
+  list-style-type: none;
+}
+
+.subdomains li {
+  display: inline-block;
+}
+
+.subdomains img {
+  width: 30px;
+  height: 30px;
+}
+
 @media (max-width: 319px) {
   body {
     width: 90%;

images/logos/git.png

@@ -0,0 +1 @@
+gitea.png

site.hs

@@ -19,7 +19,7 @@ main = hakyllWith config $ do
     route $ setExtension "html"
     compile $
       pandocCompiler
-        >>= loadAndApplyTemplate "templates/default.html" defaultContext
+        >>= loadAndApplyTemplate "templates/default.html" defaultCtx
         >>= relativizeUrls
 
   match "posts/*org" $ do
@@ -36,8 +36,8 @@ main = hakyllWith config $ do
       posts <- recentFirst =<< loadAll "posts/*"
       let archiveCtx =
             listField "posts" postCtx (return posts)
-              `mappend` constField "title" "Archives"
+              <> constField "title" "Archives"
-              `mappend` defaultContext
+              <> defaultCtx
 
       makeItem ""
         >>= loadAndApplyTemplate "templates/archive.html" archiveCtx
@@ -50,7 +50,7 @@ main = hakyllWith config $ do
       posts <- recentFirst =<< loadAll "posts/*"
       let indexCtx =
             listField "posts" postCtx (return posts)
-              `mappend` defaultContext
+              <> defaultCtx
 
       getResourceBody
         >>= applyAsTemplate indexCtx
@@ -64,7 +64,7 @@ config =
   defaultConfiguration
     { deployCommand =
         "rsync --checksum -ave 'ssh -p 22001' \
-        \result/* \
+        \_site/* \
         \root@weirdnatto.in:/var/lib/site/",
       previewPort = 3333
     }
@@ -72,4 +72,24 @@ config =
 postCtx :: Context String
 postCtx =
   dateField "date" "%B %e, %Y"
-    `mappend` defaultContext
+    <> defaultCtx
+
+defaultCtx :: Context String
+defaultCtx =
+  listField "subdomains" subCtx (return subdomains)
+    <> domainCtx
+    <> defaultContext
+  where
+    domain :: String
+    domain = "weirdnatto.in"
+    subCtx :: Context String
+    subCtx =
+      field "name" (return . itemBody)
+        <> domainCtx
+    domainCtx :: Context String
+    domainCtx = constField "domain" domain
+    subdomains :: [Item String]
+    subdomains = map mkItem ["git", "nomad", "consul", "vault", "ci", "radio"]
+      where
+        mkItem :: a -> Item a
+        mkItem a = Item {itemIdentifier = "subdomain", itemBody = a}

templates/default.html

@@ -31,6 +31,13 @@
             Site proudly generated by
             <a href="http://jaspervdj.be/hakyll">Hakyll</a><br>
             PGP Fingerprint: 53EC 089E F230 E47A 83BA  8F81 9594 9BD4 B853 F559
+            <ul class="subdomains">
+                $for(subdomains)$
+                    <li>
+                      <a href="https://$name$.$domain$"> <img src="/images/logos/$name$.png" alt="https://$name$.$domain$"/> </a>
+                    </li>
+                $endfor$
+            </ul>
         </footer>
     </body>
 </html>