You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

26 lines
617 B

open Tyxml.Html
let f room_id _request =
let page_title = Format.sprintf "Room lobby %s" room_id in
(*
let room_url = Format.sprintf "%s/%s" App.hostname room_id in
let welcome_msg =
div [
txt
(Format.sprintf
"Room - %s - was made. You can share this room with this link [ %s ] "
room_id room_url )
]
in
*)
let map_div = div ~a:[ a_id "map" ] [] in
let js =
script
~a:
[ a_mime_type "text/javascript"
; a_src "/assets/js/client.js"
; a_defer ()
]
(txt "")
in
Template.render ~page_title ~scripts:[ js ] map_div