summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs11
1 files changed, 6 insertions, 5 deletions
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 " &middot; ")
a_ [href_ "/"] "cyfraeviolae.org"
span_ $ toHtmlRaw (T.pack " &middot; ")
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 " &rarr; ")))
- (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