Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Page simplification.

Browse source
This commit is contained in:
Philippe Pittoli 2025-05-09 20:15:58 +02:00
parent 1e9658d189
commit 6392c1941c
1 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/App/Page/Home.purs
View file

@ -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"