2022-04-07 14:45:11 +02:00
|
|
|
type t = Jv.t
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
2022-04-08 22:43:31 +02:00
|
|
|
let on : type kind. kind Event.sub -> (kind Event.t -> 'b) -> t -> unit =
|
|
|
|
|
fun event handler map ->
|
|
|
|
|
let name = Event.sub_to_string event in
|
|
|
|
|
let handler v = handler @@ Event.of_jv_t event v in
|
|
|
|
|
ignore @@ Jv.call map "on" [| Jv.of_string name; Jv.repr handler |]
|
2022-04-07 14:45:11 +02:00
|
|
|
|
|
|
|
|
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 |]
|
