From 418495e274964e2ba706429b6aff51cb5e5e8436 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 11 Nov 2024 17:52:19 +0100
Subject: [PATCH] Message to old users.

---
 src/App/Page/Home.purs | 20 ++++++++++++++++----
 src/Bulma.purs         | 10 +++++++---
 2 files changed, 23 insertions(+), 7 deletions(-)

diff --git a/src/App/Page/Home.purs b/src/App/Page/Home.purs
index c83e7bc..bc7ad4b 100644
--- a/src/App/Page/Home.purs
+++ b/src/App/Page/Home.purs
@@ -1,7 +1,7 @@
 -- | `App.HomeInterface` presents the website and its features.
 module App.Page.Home where
 
-import Prelude (Unit, pure, unit, ($))
+import Prelude (Unit, pure, unit, ($), (<>))
 
 -- import Data.Either (Either(..))
 -- import Data.Maybe (Maybe(..), maybe)
@@ -12,6 +12,7 @@ import Halogen.HTML as HH
 -- import Halogen.HTML.Events as HE
 import Halogen.HTML.Properties as HP
 
+import CSSClasses as C
 import Bulma as Bulma
 
 type Input = Unit
@@ -41,8 +42,18 @@ initialState _ = unit
 render :: forall m. State -> H.ComponentHTML Action () m
 render _ = HH.div_
              [ Bulma.hero_danger
-                 "THIS IS A BETA RELEASE"
-                 "You can register, login and play a bit with the tool. Feel free to report errors and suggestions."
+                 -- "THIS IS A BETA RELEASE"
+                 -- "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.h1 "Welcome to netlib.re"
                  , Bulma.subtitle "Free domain names for the common folks"
@@ -54,6 +65,7 @@ render _ = HH.div_
                  ]
              ]
   where
+    url_linuxfr = "https://linuxfr.org"
     title = Bulma.h3
     expl content = Bulma.div_content [] [ Bulma.explanation content ]
     p = Bulma.p
@@ -91,7 +103,7 @@ render _ = HH.div_
     render_why
       = b [ title "Why?"
           , 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
       = b [ title "Contact"
diff --git a/src/Bulma.purs b/src/Bulma.purs
index 424c726..4c630a4 100644
--- a/src/Bulma.purs
+++ b/src/Bulma.purs
@@ -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
   = HH.section [ HP.classes (C.hero <> C.is_danger <> C.is_small) ]
       [ HH.div [ HP.classes C.hero_body ]
-          [ HH.p [ HP.classes C.title ] [ HH.text _title ]
-          , HH.p [ HP.classes C.subtitle ] [ HH.text _subtitle ]
+          [ HH.p [ HP.classes C.title ] _title
+          , HH.p [ HP.classes C.subtitle ] _subtitle
           ]
       ]