swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

b

Browse source
This commit is contained in:
Swrup 2022-12-04 22:42:55 +01:00
commit 6fd066773f
37 changed files with 1537 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/tyx_util.ml Normal file
View file

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