summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorcyfraeviolae <cyfraeviolae>2024-01-18 20:43:07 -0500
committercyfraeviolae <cyfraeviolae>2024-01-18 20:43:07 -0500
commit444087304e275ace8a1327a04323a856d94a3032 (patch)
treec1447c590589d140538d4fae250ba720a9abd170 /src
parent6e6909987612b29f2c6f32dd51610527858ac1e4 (diff)
new srcHEADmaster
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Lib.hs b/src/Lib.hs
index d1f6c0e..fb934f3 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -721,12 +721,12 @@ pageTemplate domainName crumbs body = doctypehtml_ $ do
div_ [class_ "home"] $ do
a_ [href_ homeURI, class_ "home-title"] "Spectral Renga"
span_ " at "
- a_ [href_ "/"] "cyfraeviolae.org"
+ a_ [class_ "site", href_ "/"] "cyfraeviolae.org"
+ a_ [class_ "source", href_ "/git/spectralrenga"] "[src]"
div_ [class_ "crumbs"] $ sequence_ $
- intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; "))) (srcCrumb:crumbs)
+ intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; "))) crumbs
body
where
- srcCrumb = a_ [href_ "/git/spectralrenga"] "source code"
titleDomain = case domainName of
Nothing -> ""
Just (DomainName domainNameStr) -> " - " <> domainNameStr