add medidate button

src/island_client.ml

@@ -101,7 +101,7 @@ let send_action state action =
     Log.debug "sending action %a to server@\n" State.pp_action action;
     Ws_client.send (Network.Action_msg action)
 
-let kb_handler ev =
+let keydown_handler ev =
   let open State in
   let ev = Ev.as_type ev in
   let act =
@@ -164,9 +164,20 @@ let () =
         match res with
         | Error e -> Log.debug "received update result error: %s@\n" e
         | Ok action' -> Queue.add action' to_apply_queue ) );
+
   (* bind keys *)
   let _e : Ev.listener =
-    Ev.listen Ev.keydown kb_handler (Window.as_target G.window)
+    Ev.listen Ev.keydown keydown_handler (Window.as_target G.window)
+  in
+
+  (* bind buttons *)
+  let _e : Ev.listener =
+    let meditate_button =
+      Jv.get Jv.global "medidate_button" |> Ev.target_of_jv
+    in
+    Ev.listen Ev.click
+      (fun _ev -> Queue.add State.Meditate input_queue)
+      meditate_button
   in
 
   Fut.await initial_state_fut (fun msg ->