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

Fix Home page.

Browse source
This commit is contained in:
Philippe Pittoli 2025-05-09 20:13:07 +02:00
parent a88eda1d94
commit 1e9658d189
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -66,10 +66,10 @@ render _ = HH.div_
] ]
where where
url_linuxfr = "https://linuxfr.org/news/netlibre-un-service-libre-et-un-nom-de-domaine-gratuit" url_linuxfr = "https://linuxfr.org/news/netlibre-un-service-libre-et-un-nom-de-domaine-gratuit"
title = Web.h3 title = Web.h4
expl content = Web.quote [ Web.explanation content ] expl content = Web.quote content
p = Web.p p = Web.p
b x = Web.column_ [ Web.box [ Web.quote x ] ] b x = Web.column_ [ Web.box x ]
render_description = Web.columns_ [ render_basics, render_no_expert, render_no_housing ] render_description = Web.columns_ [ render_basics, render_no_expert, render_no_housing ]
render_update_why_and_contact = Web.columns_ [ render_updates, render_why, render_contact ] render_update_why_and_contact = Web.columns_ [ render_updates, render_why, render_contact ]

6
src/Web/Header.purs
View file

@ -5,13 +5,13 @@ import Halogen.HTML.Properties as HP
import CSSClasses as C import CSSClasses as C
h1 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a h1 :: forall w a. String -> HH.HTML w a
h1 str = HH.h1 [ HP.classes [C.title] ] [ HH.text str ] h1 str = HH.h1 [ HP.classes [C.title] ] [ HH.text str ]
h3 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a h3 :: forall w a. String -> HH.HTML w a
h3 str = HH.h3 [ HP.classes [C.title] ] [ HH.text str ] h3 str = HH.h3 [ HP.classes [C.title] ] [ HH.text str ]
h4 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a h4 :: forall w a. String -> HH.HTML w a
h4 str = HH.h4 [ HP.classes [C.title] ] [ HH.text str ] h4 str = HH.h4 [ HP.classes [C.title] ] [ HH.text str ]
title :: forall w a. String -> HH.HTML w a title :: forall w a. String -> HH.HTML w a