open Tyxml.Html
open Tyx_util

let f request =
  (* todo page titles? *)
  let page_title = "Pellest|Login" in
  let login =
    let submit = button ~a:[ a_id "submit_login" ] [ txt "submit" ] in
    let login = make_input_text "login" in
    let password = make_input_text "password" in
    div
      [ make_form request ~action:"/login" ~items:[ login; password; submit ] ]
  in
  let text = div [ txt "login ~!" ] in
  let page = div [ text; login ] in
  Template.render ~page_title ~scripts:[] page