30 lines
656 B
OCaml
30 lines
656 B
OCaml
|
open Tyxml.Html
|
||
|
|
open Syntax
|
||
|
|
|
||
|
|
let get request =
|
||
|
|
let** () = User.assert_logged request in
|
||
|
|
let title = "Your island" in
|
||
|
|
let canvas =
|
||
|
|
canvas
|
||
|
|
~a:[ a_id "canvas" ]
|
||
|
|
[ txt "please update your browser or enable javascript" ]
|
||
|
|
in
|
||
|
|
let img_grass =
|
||
|
|
img ~src:"/assets/img/grass.png" ~alt:"grass"
|
||
|
|
~a:[ a_hidden (); a_id "grass" ]
|
||
|
|
()
|
||
|
|
in
|
||
|
|
let page = div ~a:[ a_class [ "centered" ] ] @@ [ canvas; img_grass ] in
|
||
|
|
|
||
|
|
let js =
|
||
|
|
script
|
||
|
|
~a:
|
||
|
|
[ a_mime_type "text/javascript"
|
||
|
|
; a_src "/assets/js/island_client.js"
|
||
|
|
; a_defer ()
|
||
|
|
]
|
||
|
|
(txt "")
|
||
|
|
in
|
||
|
|
|
||
|
|
Template.render ~title ~scripts:[ js ] page
|