From 3e358f04fc5d966a6e429dcfb7d59144c90c537d Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sat, 15 Jul 2023 16:30:02 +0200
Subject: [PATCH] THIS IS AN ALPHA RELEASE

---
 src/App/HomeInterface.purs | 45 ++++++++++++++++++++++++++------------
 src/Bulma.purs             |  9 ++++++++
 2 files changed, 40 insertions(+), 14 deletions(-)

diff --git a/src/App/HomeInterface.purs b/src/App/HomeInterface.purs
index 95485ad..53063e9 100644
--- a/src/App/HomeInterface.purs
+++ b/src/App/HomeInterface.purs
@@ -8,7 +8,7 @@ import Prelude (Unit, pure, unit, ($))
 -- import Data.Tuple (Tuple(..))
 import Effect.Aff.Class (class MonadAff)
 import Halogen as H
--- import Halogen.HTML as HH
+import Halogen.HTML as HH
 -- import Halogen.HTML.Events as HE
 -- import Halogen.HTML.Properties as HP
 
@@ -39,28 +39,45 @@ initialState :: forall input. input -> State
 initialState _ = unit
 
 render :: forall m. State -> H.ComponentHTML Action () m
-render _ = Bulma.section_small [ Bulma.h1 "Welcome on netlib.re"
-                               , Bulma.subtitle "Free domain names"
-                               , Bulma.hr
-                               , render_description
-                               , render_why_and_contact
-                               , Bulma.hr
-                               , render_how_and_code
-                               ]
+render _ = HH.div_
+             [ Bulma.hero_danger
+                 "THIS IS AN ALPHA RELEASE"
+                 "Come back later!"
+             , Bulma.section_small
+                 [ Bulma.h1 "Welcome to netlib.re"
+                 , Bulma.subtitle "Free domain names"
+                 , Bulma.hr
+                 , render_description
+                 , render_second_line
+                 , render_why_and_contact
+                 , Bulma.hr
+                 , render_how_and_code
+                 ]
+             ]
   where
     title = Bulma.h3
     p = Bulma.p
     b x = Bulma.column_ [ Bulma.box x ]
 
-    render_description = Bulma.columns_ [ render_basics, render_updates ]
+    render_description = Bulma.columns_ [ render_basics, render_no_expert ]
     render_basics
       = b [ title "What is provided?"
           , p "Reserve a domain name in <something>.netlib.re for free."
           , p "Manage your own DNS zone."
-          , Bulma.hr
-          , p "No need to be an expert! This website will help you through your configuration."
-          , Bulma.hr
-          , p "We don't provide housing, just a name."
+          ]
+    render_no_expert
+      = b [ title "No need to be an expert!"
+          , p """
+              This website will help you through your configuration, as much as we can.
+              """
+          ]
+    render_second_line = Bulma.columns_ [ render_no_housing, render_updates ]
+    render_no_housing
+      = b [ title "No housing, just a name"
+          , p """
+              We don't provide housing for your services or websites,
+              just a name.
+              """
           ]
     render_updates
       = b [ title "Automatic updates"
diff --git a/src/Bulma.purs b/src/Bulma.purs
index 8941dbc..04eef77 100644
--- a/src/Bulma.purs
+++ b/src/Bulma.purs
@@ -407,6 +407,15 @@ hero _title _subtitle
           ]
       ]
 
+hero_danger :: forall w i. String -> String -> 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 ]
+          ]
+      ]
+
 header :: forall w i. String -> String -> HH.HTML w i
 header = hero