From 4bf6f634f06a8f3e392f1744a6b95abcee8a141b Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Mon, 28 Feb 2022 20:55:33 -0500
Subject: styles

---
 dist/dbreset-exe            | Bin 24120632 -> 24121176 bytes
 dist/spectralrenga-exe      | Bin 24117720 -> 24118296 bytes
 src/Lib.hs                  |  17 +++++++++--------
 static/FiraMono-Regular.ttf | Bin 169464 -> 0 bytes
 static/styles.css           |   2 +-
 5 files changed, 10 insertions(+), 9 deletions(-)
 delete mode 100644 static/FiraMono-Regular.ttf

diff --git a/dist/dbreset-exe b/dist/dbreset-exe
index 73fff26..9d8613a 100755
Binary files a/dist/dbreset-exe and b/dist/dbreset-exe differ
diff --git a/dist/spectralrenga-exe b/dist/spectralrenga-exe
index 23bf215..261a2e0 100755
Binary files a/dist/spectralrenga-exe and b/dist/spectralrenga-exe differ
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
diff --git a/static/FiraMono-Regular.ttf b/static/FiraMono-Regular.ttf
deleted file mode 100644
index 3910f17..0000000
Binary files a/static/FiraMono-Regular.ttf and /dev/null differ
diff --git a/static/styles.css b/static/styles.css
index 69a060d..10ec101 100644
--- a/static/styles.css
+++ b/static/styles.css
@@ -41,7 +41,7 @@ input[type="text"] {
 }
 
 .domain-name {
-    letter-spacing: -1.5px;
+    letter-spacing: -1px;
     font-style: italic;
     font-weight: bold;
 }
-- 
cgit v1.2.3