styles

5 files changed, 10 insertions, 9 deletions

diff --git a/dist/dbreset-exe b/dist/dbreset-exe
index 73fff26..9d8613a 100755
--- a/dist/dbreset-exe
+++ b/dist/dbreset-exe
diff --git a/dist/spectralrenga-exe b/dist/spectralrenga-exe
index 23bf215..261a2e0 100755
--- a/dist/spectralrenga-exe
+++ b/dist/spectralrenga-exe
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
--- a/static/FiraMono-Regular.ttf
+++ /dev/null
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;
 }