diff options
-rw-r--r-- | src/Lib.hs | 8 | ||||
-rw-r--r-- | static/style.css | 12 |
2 files changed, 12 insertions, 8 deletions
@@ -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; } |