4 files changed, 14 insertions, 8 deletions

diff --git a/dist/dbreset-exe b/dist/dbreset-exe
index 98bb24e..e8e7e6b 100755
--- a/dist/dbreset-exe
+++ b/dist/dbreset-exe
diff --git a/dist/spectralrenga-exe b/dist/spectralrenga-exe
index 4d2250e..9918940 100755
--- a/dist/spectralrenga-exe
+++ b/dist/spectralrenga-exe
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
diff --git a/static/style.css b/static/style.css
index bec896b..1ca2cdb 100644
--- a/static/style.css
+++ b/static/style.css
@@ -40,12 +40,12 @@ button[type="submit"] {
 }
 @media (min-width: 800px) {
 	.container {
-		margin-left: 3em;
-		margin-right: 3em;
+		margin-left: 1em;
+		margin-right: 1em;
 	}
 
 	.navbar {
-		margin-top: 3em;
+		margin-top: 1em;
 	}
 
 	body {
@@ -117,3 +117,8 @@ input[type="text"] {
 .manage-form {
 	display: inline-block;
 }
+
+.sep {
+    margin-left: 6px;
+    margin-right: 6px;
+}