Style (minor). Are sections even useful?

src/App/Container.purs

@@ -62,8 +62,8 @@ render state
     [ render_header
     , render_auth_form
     , render_newdomain_interface
-    , render_authd_admin_interface
     , Bulma.columns_ [ Bulma.column_ [ render_logs ], Bulma.column_ [ render_auth_WS, render_dnsmanager_WS ] ]
+    , render_authd_admin_interface
     ]
   where
 

src/App/DomainListInterface.purs

@@ -104,10 +104,9 @@ initialState token =
 
 render :: forall m. State -> H.ComponentHTML Action () m
 render { accepted_domains, my_domains, newDomainForm, wsUp }
-    = HH.div_
-       [ Bulma.columns_ [ Bulma.column_ newdomain_form
-                        , Bulma.column_ list_of_own_domains ]
-       ]
+    = Bulma.section_medium
+        [ Bulma.columns_ [ Bulma.column_ newdomain_form, Bulma.column_ list_of_own_domains ]
+        ]
     where
 
       newdomain_form
@@ -116,7 +115,7 @@ render { accepted_domains, my_domains, newDomainForm, wsUp }
           ]
 
       list_of_own_domains
-        = [ Bulma.h3 "My domains:"
+        = [ Bulma.h3 "My domains"
           , HH.ul_ $ map (\domain -> HH.li_ (domain_buttons domain)) my_domains
           ]
 
@@ -188,7 +187,7 @@ handleAction = case _ of
           $ DNSManager.serialize
           $ DNSManager.MkNewDomain { domain: new_domain }
         H.raise $ MessageToSend message
-        H.raise $ Log $ SimpleLog "[😇] Trying to add a new domain"
+        H.raise $ Log $ SimpleLog $ "[😇] Trying to add a new domain (" <> new_domain <> ")"
         handleAction $ HandleNewDomainInput $ INP_newdomain ""
 
 handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a)

src/Bulma.purs

@@ -346,6 +346,13 @@ box_password = field_inner true
 class_has_addons :: Array (HH.ClassName)
 class_has_addons = [HH.ClassName "has-addons"]
 
+class_section  :: Array (HH.ClassName)
+class_section  = [HH.ClassName "section"]
+class_medium  :: Array (HH.ClassName)
+class_medium  = [HH.ClassName "is-medium"]
+
+section_medium = HH.section [ HP.classes (class_section <> class_medium) ]
+
 field classes = HH.div [ HP.classes (class_field <> classes) ]
 
 class_input  :: Array (HH.ClassName)