Home page: talk about the code.

src/App/Page/Home.purs

@@ -10,7 +10,7 @@ import Effect.Aff.Class (class MonadAff)
 import Halogen as H
 import Halogen.HTML as HH
 -- import Halogen.HTML.Events as HE
--- import Halogen.HTML.Properties as HP
+import Halogen.HTML.Properties as HP
 
 import Bulma as Bulma
 
@@ -57,7 +57,7 @@ render _ = HH.div_
   where
     title = Bulma.h3
     p = Bulma.p
-    b x = Bulma.column_ [ Bulma.box x ]
+    b x = Bulma.column_ [ Bulma.box [ Bulma.div_content x ] ]
 
     render_description = Bulma.columns_ [ render_basics, render_no_expert ]
     render_basics
@@ -96,8 +96,8 @@ render _ = HH.div_
           ]
     render_contact
       = b [ title "Contact"
-          , p "You have a question, you saw a bug or you just want to chat?"
+          , p "You have a question, you have seen a bug, you have suggestions or you just want to chat?"
-          , p "You can contact us: ..."
+          , p "You can contact us: netlibre@karchnu.fr"
           ]
 
     render_how_and_code = Bulma.columns_ [ render_how, render_code ]
@@ -109,5 +109,43 @@ render _ = HH.div_
     render_code
       = b [ title "I want to see the code!"
           , p "The project is fully open-source (ISC licence)."
-          , p "There are 3 parts: libipc, micro-services (authentication and dnsmanager) and this website."
+          , HH.text "There are a few parts:"
+          , HH.ul_
+            [ link "https://git.baguette.netlib.re/Baguette/authd" "authd"
+                   """
+                   the authentication (and authorization) daemon, used to authenticate
+                   clients through different services;
+                   """
+            , link "https://git.baguette.netlib.re/Baguette/dnsmanagerd" "dnsmanagerd"
+                   """
+                   the dns manager daemon, used as an interactive database, allowing clients
+                   to ask for domains, then handle the domain zones;
+                   """
+            , link "https://git.baguette.netlib.re/Baguette/dnsmanager-webclient"
+                   "dnsmanager webclient"
+                   """
+                   the web client that you are currently using, reading this very text,
+                   and enjoying while managing your zones. 🥰
+                   """
+            ]
+          , Bulma.hr
+          , Bulma.p "But of course, there are a few more technical parts:"
+          , HH.ul_
+            [ link "https://git.baguette.netlib.re/Baguette/libipc" "libIPC"
+                   """
+                   the Inter Process Communication library used between different applications,
+                   such as authd and dnsmanagerd;
+                   """
+            , link "https://git.baguette.netlib.re/Baguette/dodb.cr" "dodb"
+                   """
+                   the Document Oriented DataBase, allowing to store serialized objects
+                   (a Zone, a User, etc.) in simple files as opposed to the usual complexity of
+                   traditional databases.
+                   """
+            ]
           ]
+    link url link_title content
+      = HH.li_ [ HH.a [HP.href url] [HH.text link_title]
+               , HH.text ", "
+               , HH.text content
+               ]