18 lines
441 B
OCaml
18 lines
441 B
OCaml
open Tyxml.Html
|
|
|
|
let f request =
|
|
let page_title = "Droloc" in
|
|
let about = div [ txt App.about ] in
|
|
let make_room =
|
|
let make_room_button =
|
|
button ~a:[ a_id "make_room_button" ] [ txt "Make Room" ]
|
|
in
|
|
div
|
|
[ form
|
|
~a:[ a_action "/"; a_method `Post ]
|
|
[ Util.csrf_tag request; make_room_button ]
|
|
]
|
|
in
|
|
let page = div [ about; make_room ] in
|
|
Template.render ~page_title ~scripts:[] page
|