styles

1 files changed, 9 insertions, 8 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index ec3b734..6158602 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/spectralrenga"] "source code"]
+        []
         homeBody
             where
                 homeBody = div_ $ do
@@ -717,15 +717,16 @@ pageTemplate domainName crumbs body = doctypehtml_ $ do
         link_ [rel_ "stylesheet", type_ "text/css", href_ "/static/styles.css"]
         link_ [rel_ "stylesheet", type_ "text/css", href_ "/spectral-renga/static/styles.css"]
     body_ $ div_ [class_ "container"] $ do
-        div_ $
-            sequence_ $
-            intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " | "))) (crumb:crumbs)
+        div_ $ do
+            div_ [class_ "home"] $ do
+                a_ [href_ homeURI, class_ "home-title"] "Spectral Renga"
+                span_ " at "
+                a_ [href_ "/"] "cyfraeviolae.org"
+            div_ [class_ "crumbs"] $ sequence_ $
+                intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; "))) (srcCrumb:crumbs)
         body
     where
-        crumb = span_ [class_ "home"] $ do
-            a_ [href_ homeURI, class_ "title"] "Spectral Renga"
-            span_ "@"
-            a_ [href_ "https://cyfraeviolae.org", class_ "home-link"] "cyfraeviolae.org"
+        srcCrumb = a_ [href_ "/git/spectralrenga"] "source code"
         titleDomain = case domainName of
                         Nothing -> ""
                         Just (DomainName domainNameStr) -> " - " <> domainNameStr