From b2caff5123c3f2a7eb8fa6ebfa59adc8654e4c56 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 3 Jul 2023 15:05:40 +0200
Subject: [PATCH] Bulma: introduce some fields.

---
 src/Bulma.purs | 38 ++++++++++++++++++++++++++++++--------
 1 file changed, 30 insertions(+), 8 deletions(-)

diff --git a/src/Bulma.purs b/src/Bulma.purs
index cf1bb8f..f947039 100644
--- a/src/Bulma.purs
+++ b/src/Bulma.purs
@@ -300,6 +300,7 @@ btn title action1 action2 validity
       true -> HE.onClick \_ -> action1
       _    -> HE.onClick \_ -> action2
 
+
 render_input password placeholder action value validity cond
   = HH.input $
       [ HE.onValueInput action
@@ -311,15 +312,36 @@ render_input password placeholder action value validity cond
         false -> []
         true -> [ HP.type_ HP.InputPassword ]
 
-box_inner ispassword title placeholder action value validity cond
-  = HH.label [ ]
-      [ HH.label [HP.classes class_label ] [ HH.text title ]
-      , HH.div [HP.classes class_control ]
-          [ render_input ispassword placeholder action value validity cond ]
-      ]
+class_horizontal  :: Array (HH.ClassName)
+class_horizontal  = [HH.ClassName "is-horizontal"   ]
+class_normal  :: Array (HH.ClassName)
+class_normal  = [HH.ClassName "is-normal"   ]
+class_field  :: Array (HH.ClassName)
+class_field  = [HH.ClassName "field"   ]
+class_field_label  :: Array (HH.ClassName)
+class_field_label  = [HH.ClassName "field-label"   ]
+class_field_body  :: Array (HH.ClassName)
+class_field_body  = [HH.ClassName "field-body"   ]
 
-box_input    = box_inner false
-box_password = box_inner true
+field_inner ispassword title placeholder action value validity cond
+  = div_field
+      [ div_field_label title
+      , div_field_content $ render_input ispassword placeholder action value validity cond
+      ]
+  where
+    div_field = HH.div [ HP.classes (class_field <> class_horizontal) ]
+    div_field_label title
+      = HH.div [ HP.classes (class_field_label <> class_normal) ]
+               [HH.label [ HP.classes class_label ] [ HH.text title ]]
+    div_field_content content
+      = HH.div [HP.classes class_field_body]
+          [ HH.div [HP.classes class_field ]
+              [ HH.div [HP.classes class_control ] [ content ]
+              ]
+          ]
+
+box_input    = field_inner false
+box_password = field_inner true
 
 --box_button action value validity cond
 --  = HH.label [ ]