better Ev

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