css header

1 files changed, 6 insertions, 5 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index 4b0d51b..8dfdb05 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -554,7 +554,7 @@ domainDeleteURI domainName = "/" <> toUrlPiece (safeLink api (Proxy :: Proxy Dom
 instance ToHtml HomeView where
     toHtml HomeView = pageTemplate
         Nothing
-        []
+        [a_ [href_ "https://cyfraeviolae.org/git/spectral-renga"] "source code"]
         homeBody
             where
                 homeBody = div_ $ do
@@ -567,8 +567,6 @@ instance ToHtml HomeView where
                         a_ [href_ newDomainURI] "create a private subgraph"
                         span_ "."
                     p_ $ small_ $ do
-                        a_ [href_ "https://cyfraeviolae.org/git/spectral-renga"] "source code"
-                        span_ $ toHtmlRaw (T.pack " &middot; ")
                         a_ [href_ "/"] "cyfraeviolae.org"
                         span_ $ toHtmlRaw (T.pack " &middot; ")
                         a_ [href_ "https://www.nlsun.com"] "nlsun.com"
@@ -710,10 +708,13 @@ pageTemplate domainName crumbs body = doctypehtml_ $ do
     body_ $ div_ [class_ "container"] $ do
         div_ [class_ "row navbar"] $
             sequence_ $
-            intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " &rarr; ")))
-                          (a_ [href_ homeURI, class_ "title focus"] "Spectral Renga":crumbs)
+            intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " | "))) (crumb:crumbs)
         body
     where
+        crumb = span_ $ do
+            a_ [href_ homeURI, class_ "title"] (strong_ "Spectral Renga")
+            span_ "@"
+            a_ [href_ "https://cyfraeviolae.org"] "cyfraeviolae.org"
         titleDomain = case domainName of
                         Nothing -> ""
                         Just (DomainName domainNameStr) -> " - " <> domainNameStr