THIS IS AN ALPHA RELEASE

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"
+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"

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