From 444087304e275ace8a1327a04323a856d94a3032 Mon Sep 17 00:00:00 2001 From: cyfraeviolae Date: Thu, 18 Jan 2024 20:43:07 -0500 Subject: new src --- src/Lib.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') 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 " · "))) (srcCrumb:crumbs) + intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " · "))) crumbs body where - srcCrumb = a_ [href_ "/git/spectralrenga"] "source code" titleDomain = case domainName of Nothing -> "" Just (DomainName domainNameStr) -> " - " <> domainNameStr -- cgit v1.2.3