better popups

This commit is contained in:
Swrup 2022-06-26 05:07:45 +02:00
parent 23ea827e40
commit 7effdcc577
4 changed files with 57 additions and 16 deletions

View file

@ -20,11 +20,14 @@ type opt =
| Close_on_click of bool
| Class_name of string
(** [set_latlng latlng] changes the popup position to the given point*)
val set_latlng : Latlng.t -> unit
(** [set_latlng latlng popup] sets [popup] position to the given point*)
val set_latlng : Latlng.t -> t -> unit
(** [set_content s] changes the popup content to [s]*)
val set_content : string -> unit
(** [set_content s popup] sets [popup] content to [s]*)
val set_content : string -> t -> unit
(** [set_content_to_el el s] sets [popup] content to [el]*)
val set_content_to_el : Brr.El.t -> t -> unit
(** [of_jv jv] is [jv] as {!t} *)
val of_jv : Jv.t -> t
@ -38,5 +41,10 @@ val opt_to_string : opt -> string
(** [opt_to_jv opt] is [opt] as {!Jv.t} *)
val opt_to_jv : opt -> Jv.t
(** [create options] is a new popup setup withs [options] *)
val create : opt list -> t
(** [create s latlng options] is a new popup setup with [options], position set
to [latlng] and content to [s] *)
val create : string option -> latlng:Latlng.t option -> opt list -> t
(** [create_from_el el latlng options] is a new popup setup with [options],
position set to [latlng] and content to [el] *)
val create_from_el : Brr.El.t -> latlng:Latlng.t option -> opt list -> t