karchnu/halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bulma: provide remaining signatures.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-08 03:47:13 +02:00
parent e4fbe59a3b
commit ed4ac04c28
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Bulma.purs
View File

@ -280,7 +280,8 @@ btn title action1 action2 validity
true -> HE.onClick \_ -> action1 true -> HE.onClick \_ -> action1
_ -> HE.onClick \_ -> action2 _ -> HE.onClick \_ -> action2
render_input :: forall w i.
Boolean -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i
render_input password placeholder action value validity cond render_input password placeholder action value validity cond
= HH.input $ = HH.input $
[ HE.onValueInput action [ HE.onValueInput action
@ -292,24 +293,30 @@ render_input password placeholder action value validity cond
false -> [] false -> []
true -> [ HP.type_ HP.InputPassword ] true -> [ HP.type_ HP.InputPassword ]
field_inner :: forall w i.
Boolean -> String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i
field_inner ispassword title placeholder action value validity cond field_inner ispassword title placeholder action value validity cond
= div_field = div_field
[ div_field_label title [ div_field_label
, div_field_content $ render_input ispassword placeholder action value validity cond , div_field_content $ render_input ispassword placeholder action value validity cond
] ]
where where
div_field = HH.div [ HP.classes (C.field <> C.horizontal) ] div_field = HH.div [ HP.classes (C.field <> C.horizontal) ]
div_field_label title div_field_label
= HH.div [ HP.classes (C.field_label <> C.normal) ] = HH.div [ HP.classes (C.field_label <> C.normal) ]
[HH.label [ HP.classes C.label ] [ HH.text title ]] [HH.label [ HP.classes C.label ] [ HH.text title ]]
div_field_content content div_field_content content
= HH.div [HP.classes C.field_body] = HH.div [ HP.classes C.field_body ]
[ HH.div [HP.classes C.field ] [ HH.div [HP.classes C.field ]
[ HH.div [HP.classes C.control ] [ content ] [ HH.div [HP.classes C.control ] [ content ]
] ]
] ]
box_input :: forall w i.
String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i
box_input = field_inner false box_input = field_inner false
box_password :: forall w i.
String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i
box_password = field_inner true box_password = field_inner true
section_medium :: forall w i. Array (HH.HTML w i) -> HH.HTML w i section_medium :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
@ -318,6 +325,8 @@ section_medium = HH.section [ HP.classes (C.section <> C.medium) ]
field :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i field :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
field classes = HH.div [ HP.classes (C.field <> classes) ] field classes = HH.div [ HP.classes (C.field <> classes) ]
new_domain_field :: forall w i.
(String -> i) -> String -> Array (HP.IProp DHI.HTMLselect i) -> Array String -> HH.HTML w i
new_domain_field inputaction text selectaction accepted_domains new_domain_field inputaction text selectaction accepted_domains
= field C.has_addons = field C.has_addons
[ HH.p [ HH.p