diff --git a/src/App/Page/Home.purs b/src/App/Page/Home.purs
index ffd365b..dffbeac 100644
--- a/src/App/Page/Home.purs
+++ b/src/App/Page/Home.purs
@@ -67,8 +67,6 @@ render _ = HH.div_
   where
     url_linuxfr = "https://linuxfr.org/news/netlibre-un-service-libre-et-un-nom-de-domaine-gratuit"
     title = Web.h4
-    expl content = Web.quote content
-    p = Web.p
     b x = Web.column_ [ Web.box x ]
 
     render_description = Web.columns_ [ render_basics, render_no_expert, render_no_housing ]
@@ -76,18 +74,18 @@ render _ = HH.div_
 
     render_basics
       = b [ title "What is provided?"
-          , p "Reserve a domain name in <something>.netlib.re for free."
-          , p "Manage your own DNS zone."
+          , Web.p "Reserve a domain name in <something>.netlib.re for free."
+          , Web.p "Manage your own DNS zone."
           ]
     render_no_expert
       = b [ title "No need to be an expert"
-          , p """
+          , Web.p """
               This website will help you through your configuration, as much as we can.
               """
           ]
     render_no_housing
       = b [ title "No housing, just a name"
-          , p """
+          , Web.p """
               We don't host your services or websites.
               We just provide a name.
               You can host your websites anywhere you want: at home for example.
@@ -95,32 +93,32 @@ render _ = HH.div_
           ]
     render_updates
       = b [ title "Automatic updates"
-          , p "Update your records with a single, stupidly simple command. For example:"
-          , expl [ Web.strong "wget https://www.netlib.re/token-update/<token>" ]
-          , p "Every A and AAAA records have tokens for easy updates."
+          , Web.p "Update your records with a single, stupidly simple command. For example:"
+          , Web.quote [ Web.strong "wget https://www.netlib.re/token-update/<token>" ]
+          , Web.p "Every A and AAAA records have tokens for easy updates."
           ]
 
     render_why
       = b [ title "Why?"
-          , p "Because everyone should be able to have a place on the Internet."
-          , p "We provide a name, build something meaningful with it."
+          , Web.p "Because everyone should be able to have a place on the Internet."
+          , Web.p "We provide a name, build something meaningful with it."
           ]
     render_contact
       = b [ title "Contact"
-          , p "You have a question, you have seen a bug, you have suggestions or you just want to chat?"
-          , p "You can contact me: philippe@netlib.re"
-          , p "For legal matter: abuse@netlib.re"
+          , Web.p "You have a question, you have seen a bug, you have suggestions or you just want to chat?"
+          , Web.p "You can contact me: philippe@netlib.re"
+          , Web.p "For legal matter: abuse@netlib.re"
           ]
 
     render_how_and_code = Web.columns_ [ render_how, render_code ]
     render_how
       = b [ title "How does this work?"
-          , p "We pay for the domain names (netlib.re and codelib.re) and let you have a subdomain."
-          , p "This service helps you manage your domain (a subdomain of netlib.re or codelib.re)."
+          , Web.p "We pay for the domain names (netlib.re and codelib.re) and let you have a subdomain."
+          , Web.p "This service helps you manage your domain (a subdomain of netlib.re or codelib.re)."
           ]
     render_code
       = b [ title "I want to see the code! 🤓​"
-          , p "The project is fully open-source (ISC licence)."
+          , Web.p "The project is fully open-source (ISC licence)."
           , HH.text "There are a few parts:"
           , HH.ul_
             [ link "https://git.baguette.netlib.re/Baguette/authd" "authentication daemon"