From 8ebc8839a2f76f6a61e1b0041f554c68f3a4eb88 Mon Sep 17 00:00:00 2001 From: quidtum Date: Mon, 7 Dec 2020 09:29:28 -0500 Subject: credit --- src/Lib.hs | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/src/Lib.hs b/src/Lib.hs index d3d65e0..517a8d0 100644 --- a/src/Lib.hs +++ b/src/Lib.hs @@ -562,16 +562,21 @@ instance ToHtml HomeView where homeBody where homeBody = div_ $ do - div_ $ do + p_ $ do strong_ [class_ "title"] "Spectral Renga" span_ " is a collaborative graph of poetry." - div_ $ em_ $ do + p_ $ em_ $ do a_ [href_ (domainURI (DomainName "piazza"))] "Join the public piazza" - span_ ", " - a_ [href_ newDomainURI] "create a private subgraph" span_ ", or " - a_ [href_ "https://git.cyfraeviolae.org/spectral-renga"] "view the source code" + a_ [href_ newDomainURI] "create a private subgraph" span_ "." + p_ $ small_ $ do + a_ [href_ "https://git.cyfraeviolae.org/spectral-renga"] "source code" + span_ $ toHtmlRaw (T.pack " · ") + a_ [href_ "https://cyfraeviolae.org/"] "cyfraeviolae.org" + span_ $ toHtmlRaw (T.pack " · ") + a_ [href_ "https://www.nlsun.com"] "nlsun.com" + toHtmlRaw = toHtml instance ToHtml DomainView where @@ -582,11 +587,11 @@ instance ToHtml DomainView where where domainBody = do div_ [class_ "row"] $ do - div_ $ do + p_ $ do span_ (toHtmlRaw (T.pack "Welcome to ")) strong_ [class_ "domain-name"] (toHtml domainName) span_ $ toHtml $ ". This subgraph contains " <> show numNodes <> " nodes and " <> show numEdges <> " edges." - div_ $ em_ $ do + p_ $ em_ $ do a_ [href_ (domainReadURI domainName Nothing)] "Read a poem" span_ ", " a_ [href_ (domainWriteURI domainName Nothing Nothing Nothing)] "write a line" -- cgit v1.2.3