split modules and fix Ev

src/map.ml

@@ -0,0 +1,46 @@
+type t = Jv.t
+
+module Event = struct
+  let to_brr s = s |> Jstr.v |> Brr.Ev.Type.create
+
+  let click = to_brr "click"
+
+  let moveend = to_brr "moveend"
+
+  let zoomend = to_brr "zoomend"
+end
+
+let of_jv_t = Fun.id
+
+let to_jv_t = Fun.id
+
+let create ?(options = Jv.null) container_id =
+  Jv.call Global.leaflet "map" [| Jv.of_string container_id; options |]
+
+let invalidate_size map = ignore @@ Jv.call map "invalidateSize" [| Jv.true' |]
+
+let fit_world map = ignore @@ Jv.call map "fitWorld" [||]
+
+let get_container map =
+  Jv.call (to_jv_t map) "getContainer" [||] |> Brr.El.of_jv
+
+let set_view latlng ?zoom map =
+  let latlng = Latlng.to_jv_t latlng in
+  ignore
+  @@
+  match zoom with
+  | None -> Jv.call map "setView" [| latlng |]
+  | Some zoom -> Jv.call map "setView" [| latlng; Jv.of_int zoom |]
+
+let as_target map = Brr.Ev.target_of_jv map
+
+let on ~event ~handler map =
+  let name = Brr.Ev.Type.name event |> Jv.of_jstr in
+  ignore @@ Jv.call map "on" [| name; Jv.repr handler |]
+
+let get_center map = Latlng.of_jv_t @@ Jv.call map "getCenter" [||]
+
+let get_zoom map = Jv.call map "getZoom" [||] |> Jv.to_int
+
+let wrapped_latlng latlng map =
+  Latlng.of_jv_t @@ Jv.call map "wrapLatLng" [| Latlng.to_jv_t latlng |]