pellest/src/island.ml

open Tyxml.Html
open Syntax

let mk_img hidden name =
  let a = [ a_id name ] in
  img
    ~src:(Format.sprintf "/assets/img/%s.png" name)
    ~alt:name
    ~a:(if hidden then a_hidden () :: a else a)
    ()

let get request =
  let** () = User.assert_logged request in

  let title = "Your island" in

  let topbar =
    let mana_img = mk_img false "mana" in
    let mana_lvl = span ~a:[ a_id "mana_lvl" ] [ txt "0" ] in
    div ~a:[ a_class [ "centered" ] ] @@ [ mana_img; mana_lvl ]
  in

  let canvas =
    canvas
      ~a:[ a_id "canvas" ]
      [ txt "please update your browser or enable javascript" ]
  in

  let canvas_images =
    List.map (mk_img true)
      [ "grass"; "papy_left"; "papy_right"; "papy_down"; "papy_up"; "water" ]
  in

  let page =
    div ~a:[ a_class [ "centered" ] ] @@ (topbar :: canvas :: 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