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

implement player dir, clean code

Browse source
This commit is contained in:
zapashcanon 2022-12-08 04:08:27 +01:00
parent 365c558f35
commit 549aa39e09
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
4 changed files with 82 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/island.ml
View file

@ -16,7 +16,10 @@ let get request =
~a:[ a_id "canvas" ]
[ txt "please update your browser or enable javascript" ]
in
let images = List.map mk_img [ "grass"; "papy_bottom"; "water" ] 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