From 3edb7b94cc665727ee52922ef5bb7275f0e5e157 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Tue, 6 May 2025 04:18:06 +0200
Subject: [PATCH] Website hero.

---
 src/App/Container.purs | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index e545d51..a7ee168 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -281,7 +281,7 @@ initialState _ = { token: Nothing
 render :: forall m. MonadAff m => State -> H.ComponentHTML Action ChildSlots m
 render state
   = HH.div_ $
-    [ render_header
+    [ website_hero
     , render_nav
     , reconnection_bar
     , render_notifications
@@ -311,6 +311,19 @@ render state
     ]
   where
 
+    website_hero :: forall w i. HH.HTML w i
+    website_hero =
+        HH.section [ HP.classes [C.hero, C.is_info, C.is_small] ]
+          [ HH.div [ HP.classes [C.hero_body] ]
+              [ HH.div [ HP.classes [C.container, C.has_text_centered] ]
+                  [ HH.p [ HP.classes [C.subtitle] ]
+                      [ HH.strong_ [ HH.u_ [ HH.text "net libre" ]]
+                      , HH.text ": providing free domains since 2013!"
+                      ]
+                  ]
+              ]
+          ]
+
     paypal_btn :: forall w i. HH.HTML w i
     paypal_btn = HH.div [ HP.ref ref_paypal_div ] []
 
@@ -395,19 +408,6 @@ render state
     render_nav :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
     render_nav = HH.slot _nav unit NavigationInterface.component unit NavigationInterfaceEvent
 
-    render_header :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
-    render_header =
-      HH.section [ HP.classes [C.hero, C.is_info, C.is_small] ]
-        [ HH.div [ HP.classes [C.hero_body] ]
-            [ HH.div [ HP.classes [C.container, C.has_text_centered] ]
-                [ HH.p [ HP.classes [C.subtitle] ]
-                    [ HH.strong_ [ HH.u_ [ HH.text "net libre" ]]
-                    , HH.text ": providing free domains since 2013!"
-                    ]
-                ]
-            ]
-        ]
-
     render_logs :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
     render_logs = Web.container [ HH.slot_ _log unit AppLog.component unit ]