summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs19
1 files 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"