b

src/login.ml

@@ -0,0 +1,16 @@
+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