39 lines
719 B
OCaml
39 lines
719 B
OCaml
(* BSD-2-Clause License *)
|
|
|
|
type _ t =
|
|
| Basic : Jv.t -> [> `Basic ] t
|
|
| Geojson : Jv.t -> [> `Geojson ] t
|
|
| Marker : Jv.t -> [> `Marker ] t
|
|
| Tile : Jv.t -> [> `Tile ] t
|
|
|
|
(** Basic layers *)
|
|
|
|
val add_to : Map.t -> _ t -> unit
|
|
|
|
val remove : _ t -> unit
|
|
|
|
val remove_from : Map.t -> _ t -> unit
|
|
|
|
val bind_popup : Brr.El.t -> _ t -> unit
|
|
|
|
val unbind_popup : _ t -> unit
|
|
|
|
val open_popup : _ t -> unit
|
|
|
|
val close_popup : _ t -> unit
|
|
|
|
val get_popup : _ t -> Popup.t
|
|
|
|
val to_jv : _ t -> Jv.t
|
|
|
|
(** Geojson layers *)
|
|
|
|
val create_geojson : ?options:Jv.t -> Jv.t -> [ `Geojson ] t
|
|
|
|
(** Marker layers *)
|
|
|
|
val create_marker : Latlng.t -> [ `Marker ] t
|
|
|
|
(** Tile layers *)
|
|
|
|
val create_tile_osm : string option -> [ `Tile ] t
|