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" [||]