better Ev

src/ev.ml

@@ -1,12 +1,31 @@
-type t = Jv.t
+module Make () = struct
+  type t = Jv.t
 
-module Event = struct
+  let type' e = Jv.get e "type" |> Jv.to_string
-  (*type for simple Event *)
-  type nonrec t = t
-end
 
-module Mouse = struct
+  let target e = Jv.get e "target" |> Brr.Ev.target_of_jv
-  type nonrec t = t
+
+  let source_target e = Jv.get e "sourceTarget" |> Brr.Ev.target_of_jv
+
+  let propagated_from e = Jv.get e "propagatedFrom"
 
   let latlng e = Latlng.of_jv_t @@ Jv.get e "latlng"
+
+  let layer_point e = Jv.get e "layerPoint"
+
+  let container_point e = Jv.get e "containerPoint"
+
+  let original_event e = Jv.get e "originalEvent"
+
+  let message e = Jv.get e "message" |> Jv.to_string
+
+  let code e = Jv.get e "code" |> Jv.to_int
 end
+
+module Event = Make ()
+
+module Keyboard = Make ()
+
+module Mouse = Make ()
+
+module Error = Make ()

src/ev.mli

@@ -1,11 +1,66 @@
-type t
-
 module Event : sig
   type t
+
+  val type' : t -> string
+
+  val target : t -> Brr.Ev.target
+
+  val source_target : t -> Brr.Ev.target
+
+  (* TODO this should return Point *)
+  val propagated_from : t -> Jv.t
+end
+
+module Keyboard : sig
+  type t
+
+  val type' : t -> string
+
+  val target : t -> Brr.Ev.target
+
+  val source_target : t -> Brr.Ev.target
+
+  val propagated_from : t -> Jv.t
+
+  (* TODO this should return BrrDomEvent*)
+  val original_event : t -> Jv.t
 end
 
 module Mouse : sig
   type t
 
+  val type' : t -> string
+
+  val target : t -> Brr.Ev.target
+
+  val source_target : t -> Brr.Ev.target
+
+  val propagated_from : t -> Jv.t
+
   val latlng : t -> Latlng.t
+
+  (* TODO this should return Point *)
+  val layer_point : t -> Jv.t
+
+  (* TODO this should return Point *)
+  val container_point : t -> Jv.t
+
+  (* TODO this should return BrrDomEvent*)
+  val original_event : t -> Jv.t
+end
+
+module Error : sig
+  type t
+
+  val type' : t -> string
+
+  val target : t -> Brr.Ev.target
+
+  val source_target : t -> Brr.Ev.target
+
+  val propagated_from : t -> Jv.t
+
+  val message : t -> string
+
+  val code : t -> int
 end