diff --git a/src/App/Page/Home.purs b/src/App/Page/Home.purs index 928983d..d83ed6b 100644 --- a/src/App/Page/Home.purs +++ b/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 can contact us: ..." + , p "You have a question, you have seen a bug, you have suggestions or you just want to chat?" + , 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 + ]