credit

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"