From a4037c1fd338681af8afd49442a93b0151047b2d Mon Sep 17 00:00:00 2001 From: cyfraeviolae Date: Wed, 23 Feb 2022 01:44:06 -0500 Subject: css header --- src/Lib.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src') 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 " · ") a_ [href_ "/"] "cyfraeviolae.org" span_ $ toHtmlRaw (T.pack " · ") 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 " → "))) - (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 -- cgit v1.2.3