swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add medidate button

Browse source
This commit is contained in:
zapashcanon 2023-01-10 04:39:58 +01:00
parent 078b679bc2
commit 0fcd970445
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
2 changed files with 30 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/island.ml
View file

@ -17,24 +17,33 @@ let get request =
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 ]
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" ]
div
~a:[ a_class [ "centered" ] ]
[ 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" ]
div
@@ 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)
let bottombar =
let medidate_button =
button ~a:[ a_id "medidate_button" ] [ txt "Medidate" ]
in
div ~a:[ a_class [ "centered" ] ] [ medidate_button ]
in
let page = div [ topbar; canvas; bottombar; canvas_images ] in
let js =
script
~a: