Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Message to old users.

caa
Philippe Pittoli 2024-11-11 17:52:19 +01:00
parent aa05396653
commit 418495e274
2 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/App/Page/Home.purs
View File

@ -1,7 +1,7 @@
-- | `App.HomeInterface` presents the website and its features. -- | `App.HomeInterface` presents the website and its features.
module App.Page.Home where module App.Page.Home where
import Prelude (Unit, pure, unit, ($)) import Prelude (Unit, pure, unit, ($), (<>))
-- import Data.Either (Either(..)) -- import Data.Either (Either(..))
-- import Data.Maybe (Maybe(..), maybe) -- import Data.Maybe (Maybe(..), maybe)
@ -12,6 +12,7 @@ import Halogen.HTML as HH
-- import Halogen.HTML.Events as HE -- import Halogen.HTML.Events as HE
import Halogen.HTML.Properties as HP import Halogen.HTML.Properties as HP
import CSSClasses as C
import Bulma as Bulma import Bulma as Bulma
type Input = Unit type Input = Unit
@ -41,8 +42,18 @@ initialState _ = unit
render :: forall m. State -> H.ComponentHTML Action () m render :: forall m. State -> H.ComponentHTML Action () m
render _ = HH.div_ render _ = HH.div_
[ Bulma.hero_danger [ Bulma.hero_danger
"THIS IS A BETA RELEASE" -- "THIS IS A BETA RELEASE"
"You can register, login and play a bit with the tool. Feel free to report errors and suggestions." -- "You can register, login and play a bit with the tool. Feel free to report errors and suggestions."
[ HH.text "MESSAGE DE MIGRATION" ]
[ Bulma.p "En bref : le site a été refait à neuf, en anglais (une traduction arrivera… un jour), et les comptes ont été migrés."
, Bulma.p "Les utilisateurs peuvent se connecter avec leurs identifiants habituels et leurs domaines sont toujours attribués, mais le contenu n'a pas été préservé (il faut re-configurer les zones)."
, Bulma.p """
Les comptes migrés sont conservés 6 mois, puis supprimés si aucune connexion n'est faite,
afin de purger un certain nombre de vieux comptes de robots.
"""
, HH.a [HP.classes (C.button <> C.is_info), HP.href url_linuxfr]
[ HH.text "Cliquez ici pour en savoir plus." ]
]
, Bulma.section_small , Bulma.section_small
[ Bulma.h1 "Welcome to netlib.re" [ Bulma.h1 "Welcome to netlib.re"
, Bulma.subtitle "Free domain names for the common folks" , Bulma.subtitle "Free domain names for the common folks"
@ -54,6 +65,7 @@ render _ = HH.div_
] ]
] ]
where where
url_linuxfr = "https://linuxfr.org"
title = Bulma.h3 title = Bulma.h3
expl content = Bulma.div_content [] [ Bulma.explanation content ] expl content = Bulma.div_content [] [ Bulma.explanation content ]
p = Bulma.p p = Bulma.p
@ -91,7 +103,7 @@ render _ = HH.div_
render_why render_why
= b [ title "Why?" = b [ title "Why?"
, p "Because everyone should be able to have a place on the Internet." , p "Because everyone should be able to have a place on the Internet."
, p "We provide you a name, build something meaningful with it." , p "We provide a name, build something meaningful with it."
] ]
render_contact render_contact
= b [ title "Contact" = b [ title "Contact"

10
src/Bulma.purs
View File

@ -585,12 +585,16 @@ small_hero _title _subtitle =
] ]
] ]
hero_danger :: forall w i. String -> String -> HH.HTML w i hero_danger_txt :: forall w i. String -> String -> HH.HTML w i
hero_danger_txt _title _subtitle
= hero_danger [ HH.text _title ] [ HH.text _subtitle ]
hero_danger :: forall w i. Array (HH.HTML w i) -> Array (HH.HTML w i) -> HH.HTML w i
hero_danger _title _subtitle hero_danger _title _subtitle
= HH.section [ HP.classes (C.hero <> C.is_danger <> C.is_small) ] = HH.section [ HP.classes (C.hero <> C.is_danger <> C.is_small) ]
[ HH.div [ HP.classes C.hero_body ] [ HH.div [ HP.classes C.hero_body ]
[ HH.p [ HP.classes C.title ] [ HH.text _title ] [ HH.p [ HP.classes C.title ] _title
, HH.p [ HP.classes C.subtitle ] [ HH.text _subtitle ] , HH.p [ HP.classes C.subtitle ] _subtitle
] ]
] ]