css

2 files changed, 12 insertions, 8 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index 48f30a9..32cbb3f 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -397,7 +397,7 @@ instance ToHtml PlayView where
                     p_ . toHtmlRaw $ feedback level misses
                     p_ $ em_ $ do
                         a_ [href_ (playURI mediumTags periods level Nothing)] "Retry"
-                        span_ ", or "
+                        span_ " or "
                         a_ [href_ homeURI] "choose different folios and periods"
                         span_ "."
                 div_ [class_ "row"] $ table_ $ do
@@ -439,14 +439,14 @@ pageTemplate crumbs body = doctypehtml_ $ do
       div_ [class_ "row navbar"] $
         sequence_ $
           L.intersperse
-            (span_ [] (toHtmlRaw (T.pack " / ")))
+            (span_ [class_ "sep"] (toHtmlRaw (T.pack " | ")))
             (crumb : crumbs)
       body
     where
-        crumb = do
+        crumb = span_ [class_ "ico"] $ do
             a_ [href_ homeURI, class_ "title"] (strong_ "Antiquitysort")
             span_ "@"
-            a_ [href_ "https://cyfraeviolae.org", class_ "title"] "cyfraeviolae"
+            a_ [href_ "https://cyfraeviolae.org"] "cyfraeviolae.org"
 
 tshow :: Show a => a -> T.Text
 tshow = T.pack . show
diff --git a/static/style.css b/static/style.css
index 321d507..6280df7 100644
--- a/static/style.css
+++ b/static/style.css
@@ -33,8 +33,8 @@ a:hover {
 	margin-bottom: 1em;
 }
 
-.domain-name, .title {
-	letter-spacing: -1.5px;
+.title {
+	letter-spacing: -0.5px;
 }
 
 ul {
@@ -94,7 +94,11 @@ p {
     margin-bottom: .3em;
 }
 
+
+.ico {
+}
+
 .sep {
-    margin-left: 3px;
-    margin-right: 3px;
+    margin-left: 10px;
+    margin-right: 10px;
 }