forked from zapashcanon/pellest
37 lines
783 B
OCaml
37 lines
783 B
OCaml
open Tyxml.Html
|
|
open Syntax
|
|
|
|
let mk_img name =
|
|
img
|
|
~src:(Format.sprintf "/assets/img/%s.png" name)
|
|
~alt:name
|
|
~a:[ a_hidden (); a_id name ]
|
|
()
|
|
|
|
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 images =
|
|
List.map mk_img
|
|
[ "grass"; "papy_left"; "papy_right"; "papy_down"; "papy_up"; "water" ]
|
|
in
|
|
|
|
let page = div ~a:[ a_class [ "centered" ] ] @@ (canvas :: images) 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
|