implement wheat !

src/island.ml

@@ -17,7 +17,11 @@ 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 ]
+    let wheat_img = mk_img false "wheat" in
+    let wheat_lvl = span ~a:[ a_id "wheat_lvl" ] [ txt "0" ] in
+    div
+      ~a:[ a_class [ "centered" ] ]
+      [ mana_img; mana_lvl; wheat_img; wheat_lvl ]
   in
 
   let canvas =
@@ -32,14 +36,24 @@ let get request =
   let canvas_images =
     div
     @@ List.map (mk_img true)
-         [ "grass"; "papy_left"; "papy_right"; "papy_down"; "papy_up"; "water" ]
+         [ "grass"
+         ; "papy_left"
+         ; "papy_right"
+         ; "papy_down"
+         ; "papy_up"
+         ; "water"
+         ; "wheat"
+         ]
   in
 
   let bottombar =
     let medidate_button =
       button ~a:[ a_id "medidate_button" ] [ txt "Medidate" ]
     in
-    div ~a:[ a_class [ "centered" ] ] [ medidate_button ]
+    let plant_wheat_button =
+      button ~a:[ a_id "plant_wheat_button" ] [ txt "Plant wheat" ]
+    in
+    div ~a:[ a_class [ "centered" ] ] [ medidate_button; plant_wheat_button ]
   in
 
   let page = div [ topbar; canvas; bottombar; canvas_images ] in