add Icon.create_div

This commit is contained in:
Swrup 2022-11-24 19:21:57 +01:00
parent 9d2aa5b1ff
commit 96f1839680
2 changed files with 29 additions and 0 deletions

View file

@ -5,6 +5,9 @@ type t
(** [to_jv o] is [o] as {!Jv.t} *)
val to_jv : t -> Jv.t
(** [of_jv o] is [o] as {!Icon.t} *)
val of_jv : Jv.t -> t
(** type for icon option used to create an icon*)
type opt =
| Icon_retina_url of string
@ -22,3 +25,9 @@ type opt =
(** [create icon_url options] Creates an icon instance with the given [options],
and the required `iconUrl` option set to [icon_url] *)
val create : string -> opt list -> t
(** [create_div ~html ~bg_pos options] Creates an DivIcon instance with the
given [options], [bg_pos] is the optional relative position of the
background, in pixels [html] is custom HTML code to put inside the div
element, empty by default. *)
val create_div : html:string option -> bg_pos:Point.t option -> opt list -> t