get display to work

src/island.ml

@@ -0,0 +1,29 @@
+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