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

add layer

Browse source
This commit is contained in:
Swrup 2022-04-08 13:21:20 +02:00
parent e99015e335
commit 6e1ac0d96d
11 changed files with 123 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/popup.ml
View file

@ -1,3 +1,5 @@
type t = Jv.t
let popup = Jv.call Global.leaflet "popup" [||]
let set_latlng latlng =
@ -9,3 +11,5 @@ let set_content content =
let open_on map = ignore @@ Jv.call popup "openOn" [| Map.to_jv_t map |]
let close map = ignore @@ Jv.call (Map.to_jv_t map) "closePopup" [||]
let of_jv_t = Fun.id