open Tyxml.Html

let make_input_text id = input ~a:[ a_id id; a_name id; a_input_type `Text ] ()

let make_form request ~action ~items =
  (* TODO labels ...? *)
  form ~a:[ a_action action; a_method `Post ] (Util.csrf_tag request :: items)