type t = Jv.t

let add_to map layer = ignore @@ Jv.call layer "addTo" [| Map.to_jv_t map |]

let remove layer = ignore @@ Jv.call layer "remove" [||]

let remove_from map layer =
  ignore @@ Jv.call layer "removeFrom" [| Map.to_jv_t map |]

let bind_popup el layer =
  ignore @@ Jv.call layer "bindPopup" [| Brr.El.to_jv el |]

let unbind_popup layer = ignore @@ Jv.call layer "unbindPopup" [||]

let open_popup layer = ignore @@ Jv.call layer "openPopup" [||]

let close_popup layer = ignore @@ Jv.call layer "closePopup" [||]

let get_popup layer = Popup.of_jv_t @@ Jv.call layer "getPopup" [||]

let of_jv_t = Fun.id

let to_jv_t = Fun.id