let popup = Jv.call Global.leaflet "popup" [||]

let set_latlng latlng =
  ignore @@ Jv.call popup "setLatLng" [| Latlng.to_jv_t latlng |]

let set_content content =
  ignore @@ Jv.call popup "setContent" [| Jv.of_string 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" [||]