pellest/src/island.ml

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 img_grass = mk_img "grass" in
  let img_papy_bottom = mk_img "papy_bottom" in
  let img_water = mk_img "water" in

  let page =
    div ~a:[ a_class [ "centered" ] ]
    @@ [ canvas; img_grass; img_papy_bottom; img_water ]
  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