let input id label init_value on_input =
  H.div
    [| HA.class_ "g-Form__Field" |]
    [| H.div
        [| HA.class_ "g-Form__Label" |]
        [| H.label
          [| HA.for_ id |]
          [| H.text label |]
        |]
    ;  H.input
        [| HA.id id
        ;  HE.on_input (fun e -> on_input (Element.value (Event.target e)))
        ;  HA.value init_value
        |]
        [| |]
    |]

let color_input id label init_value on_input =
  H.div
    [| HA.class_ "g-Form__Field" |]
    [| H.div
        [| HA.class_ "g-Form__Label" |]
        [| H.label
          [| HA.for_ id |]
          [| H.text label |]
        |]
    ;  H.input
        [| HA.id id
        ;  HE.on_input (fun e -> on_input (Element.value (Event.target e)))
        ;  HA.value init_value
        ;  HA.type_ "color"
        |]
        [| |]
    |]

let textarea id label init_value on_input =
  H.div
    [| HA.class_ "g-Form__Field" |]
    [| H.div
        [| HA.class_ "g-Form__Label" |]
        [| H.label
          [| HA.for_ id |]
          [| H.text label |]
        |]
    ;  H.textarea
        [| HA.id id
        ;  HA.class_ "g-Form__Textarea"
        ;  HE.on_input (fun e -> on_input (Element.value (Event.target e)))
        |]
        [| H.text init_value |]
    |]