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 .netlib.re for free." - , p "Manage your own DNS zone." + , Web.p "Reserve a domain name in .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/" ] - , 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/" ] + , 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"