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
url_linuxfr = "https://linuxfr.org/news/netlibre-un-service-libre-et-un-nom-de-domaine-gratuit"
title = Web.h3
expl content = Web.quote [ Web.explanation content ]
title = Web.h4
expl content = Web.quote content
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_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
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 ]
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 ]
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 ]
title :: forall w a. String -> HH.HTML w a