From e480469ac64434f1e97b6ba9cff95b5663602c33 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Fri, 23 Feb 2024 06:19:23 +0100 Subject: [PATCH] Smaller header. --- src/App/Container.purs | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/App/Container.purs b/src/App/Container.purs index b29b728..b77990f 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -247,7 +247,17 @@ render state render_nav = HH.slot _nav unit NavigationInterface.component unit NavigationInterfaceEvent render_header :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad - render_header = Bulma.small_hero "net libre" "Providing free domains since 2015!" + 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 2015!" + ] + ] + ] + ] render_logs :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad render_logs = Bulma.container [ HH.slot_ _log unit AppLog.component unit ]