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 default_colors id label init_value on_input =
  let
    input =
      H.input
          [| HA.id id
          ;  HE.on_input (fun e -> on_input (Element.value (Event.target e)))
          ;  HA.value init_value
          ;  HA.type_ "color"
          |]
          [| |]
  in
  H.div
    [| HA.class_ "g-Form__Field" |]
    [| H.div
        [| HA.class_ "g-Form__Label" |]
        [| H.label
          [| HA.for_ id |]
          [| H.text label |]
        |]
    ;  Layout.line
        [| |]
        (default_colors
          |> Js.Array.map (fun color ->
              Button.raw
                [| HA.class_ "g-Form__DefaultColor"
                ;  HA.style ("background-color: " ^ color)
                ;  HE.on_click (fun _ ->
                    let () = Element.set_value input color in
                    on_input color)
                ;  HA.type_ "button"
                |]
                [| |])
        |> Fun.flip Js.Array.concat [| input |])
    |]

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 |]
    |]