leaflet/src/popup.ml

(* BSD-2-Clause License *)

type t = Jv.t

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

let set_latlng latlng =
  let (_ : Jv.t) = Jv.call popup "setLatLng" [| Latlng.to_jv latlng |] in
  ()

let set_content content =
  let (_ : Jv.t) = Jv.call popup "setContent" [| Jv.of_string content |] in
  ()

let open_on map =
  let (_ : Jv.t) = Jv.call popup "openOn" [| Map.to_jv map |] in
  ()

let close map =
  let (_ : Jv.t) = Jv.call (Map.to_jv map) "closePopup" [||] in
  ()

let of_jv = Fun.id