27 lines
617 B
OCaml
27 lines
617 B
OCaml
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
|