let input_field :
    ?name:Jstr.t ->
    ?id':Jstr.t ->
    ?value':Jstr.t ->
    label:Jstr.t ->
    unit ->
    Brr.El.t =
 fun ?name ?id' ?(value' = Jstr.empty) ~label () ->
  let name' = name in
  let input =
    Brr.El.input
      ~at:
        Brr.At.
          [
            if_some (Option.map Brr.At.id id');
            if_some (Option.map Brr.At.name name');
            class' (Jstr.v "input");
            type' (Jstr.v "text");
            value value';
          ]
      ()
  and label =
    Brr.El.label
      ~at:
        Brr.At.
          [
            if_some (Option.map Brr.At.for' id');
            class' (Jstr.v "field-label is-normal");
          ]
      [ Brr.El.txt label ]
  in

  Brr.El.div
    ~at:Brr.At.[ class' (Jstr.v "field is-horizontal") ]
    [ label; Brr.El.div ~at:Brr.At.[ class' (Jstr.v "field-body") ] [ input ] ]