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

add popup options

Browse source
This commit is contained in:
Swrup 2022-06-20 10:05:35 +02:00
parent 502614b9d4
commit 85e6ad34c6
6 changed files with 101 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/icon.ml
View file

@ -45,5 +45,5 @@ let opt_to_jv = function
let create icon_url options =
let l = List.map (fun o -> (to_string o, opt_to_jv o)) options in
let tab = Array.of_list @@ (("iconUrl", Jv.of_string icon_url) :: l) in
Jv.call Global.leaflet "icon" [| Jv.obj tab |]
let l = Array.of_list @@ (("iconUrl", Jv.of_string icon_url) :: l) in
Jv.call Global.leaflet "icon" [| Jv.obj l |]