add point

src/dune

@@ -1,6 +1,6 @@
 (library
  (public_name leaflet)
- (modules event global latlng layer map popup)
+ (modules event global latlng layer map popup point)
  (private_modules global)
  (libraries brr)
  (js_of_ocaml

src/event.ml

@@ -43,11 +43,11 @@ let original_event : [ `Keyboard | `Mouse ] t -> Jv.t = function
 
 (** Mouse events *)
 
-let container_point : [ `Mouse ] t -> Jv.t = function
+let container_point : [ `Mouse ] t -> Point.t = function
-  | Mouse e -> Jv.get e "containerPoint"
+  | Mouse e -> Jv.get e "containerPoint" |> Point.of_jv
 
-let layer_point : [ `Mouse ] t -> Jv.t = function
+let layer_point : [ `Mouse ] t -> Point.t = function
-  | Mouse e -> Jv.get e "layerPoint"
+  | Mouse e -> Jv.get e "layerPoint" |> Point.of_jv
 
 let latlng : [ `Mouse ] t -> Latlng.t = function
   | Mouse e -> Jv.get e "latlng" |> Latlng.of_jv

src/event.mli

@@ -31,9 +31,9 @@ val original_event : [ `Keyboard | `Mouse ] t -> Jv.t
 
 (** Mouse events *)
 
-val container_point : [ `Mouse ] t -> Jv.t
+val container_point : [ `Mouse ] t -> Point.t
 
-val layer_point : [ `Mouse ] t -> Jv.t
+val layer_point : [ `Mouse ] t -> Point.t
 
 val latlng : [ `Mouse ] t -> Latlng.t
 

src/point.ml

@@ -0,0 +1,11 @@
+(* BSD-2-Clause License *)
+
+type t =
+  { x : int
+  ; y : int
+  }
+
+let of_jv point =
+  let x = Jv.get point "x" |> Jv.to_int in
+  let y = Jv.get point "y" |> Jv.to_int in
+  { x; y }

src/point.mli

@@ -0,0 +1,9 @@
+(* BSD-2-Clause License *)
+
+type t =
+  { x : int
+  ; y : int
+  }
+
+(** [of_jv jv] is [jv] as {!t} *)
+val of_jv : Jv.t -> t