12 lines
341 B
OCaml
12 lines
341 B
OCaml
|
type t = Jv.t
|
||
|
|
|
||
|
|
let create latlng = Jv.call Global.leaflet "marker" [| Latlng.to_jv_t latlng |]
|
||
|
|
|
||
|
|
let add_to marker map = ignore @@ Jv.call marker "addTo" [| Map.to_jv_t map |]
|
||
|
|
|
||
|
|
let bind_popup el marker =
|
||
|
|
ignore @@ Jv.call marker "bindPopup" [| Brr.El.to_jv el |];
|
||
|
|
marker
|
||
|
|
|
||
|
|
let open_popup marker = ignore @@ Jv.call marker "openPopup" [||]
|