move marker to separate module

This commit is contained in:
Swrup 2024-01-29 22:07:41 +01:00
parent 82f0015761
commit ce9cdc206d
5 changed files with 117 additions and 117 deletions

View file

@ -68,42 +68,3 @@ val create_geojson : Jv.t -> geojson_opt list -> [ `Geojson ] t
by [url]. Tile server default to [openstreetmap.org]. See
{:https://wiki.openstreetmap.org/wiki/Tile_servers} *)
val create_tile_osm : string option -> [ `Tile ] t
(** Marker layers *)
(** type for marker option, used to create marker *)
type marker_opt =
| Icon of Icon.t
| Keyboard of bool
| Title of string
| Alt of string
| Z_index_offset of int
| Opacity of float
| Rise_on_hover of bool
| Rise_offset of int
| Pane of string
| Shadow_pane of string
| Bubbling_mouse_events of bool
| Auto_pan_on_focus of bool
(** [create_marker latlng options] is a new marker with the same position as
[latlng] and with options set to [options] *)
val create_marker : Latlng.t -> marker_opt list -> [ `Marker ] t
(** Returns the current geographical position of the marker. *)
val get_latlng : [ `Marker ] t -> Latlng.t
(** Changes the marker position to the given point. *)
val set_latlng : Latlng.t -> [ `Marker ] t -> unit
(** Changes the zIndex offset of the marker. *)
val set_z_index_offset : int -> [ `Marker ] t -> unit
(** Returns the current icon used by the marker *)
val get_icon : [ `Marker ] t -> Icon.t
(** Changes the marker icon. *)
val set_icon : Icon.t -> [ `Marker ] t -> unit
(** Changes the opacity of the marker. *)
val set_opacity : int -> [ `Marker ] t -> unit