kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add documentation, remove Map.as_target

Browse source
This commit is contained in:
Swrup 2022-05-19 22:42:28 +02:00
parent d242b1ac6e
commit 21bf82239b
7 changed files with 50 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/map.ml
View file

@ -30,8 +30,6 @@ let set_view latlng ~zoom map =
in
()
let as_target map = Brr.Ev.target_of_jv map
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
@ -43,5 +41,5 @@ let get_center map = Latlng.of_jv @@ Jv.call map "getCenter" [||]
let get_zoom map = Jv.call map "getZoom" [||] |> Jv.to_int
let wrapped_latlng latlng map =
let wrap_latlng latlng map =
Latlng.of_jv @@ Jv.call map "wrapLatLng" [| Latlng.to_jv latlng |]