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

better popups

Browse source
This commit is contained in:
Swrup 2022-06-26 05:07:45 +02:00
parent 23ea827e40
commit 7effdcc577
4 changed files with 57 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/map.ml
View file

@ -50,5 +50,9 @@ let wrap_latlng latlng map =
let open_popup popup map =
ignore @@ Jv.call map "openPopup" [| Popup.to_jv popup |]
let close_popup popup map =
ignore @@ Jv.call map "closePopup" [| Popup.to_jv popup |]
let close_popup ~popup map =
ignore
@@
match popup with
| None -> Jv.call map "closePopup" [||]
| Some popup -> Jv.call map "closePopup" [| Popup.to_jv popup |]