36 lines
738 B
OCaml
36 lines
738 B
OCaml
open Brr
|
|
|
|
type datalist =
|
|
{ datalist_id : string
|
|
; datalist_el : El.t
|
|
}
|
|
|
|
type slider =
|
|
{ slider_id : string
|
|
; slider_el : El.t
|
|
}
|
|
|
|
(** Any is for continuous slider *)
|
|
type step_kind =
|
|
| Any
|
|
| Step_value of float
|
|
|
|
val step_to_string : step_kind -> string
|
|
|
|
val mk_datalist : Jstr.t list -> string -> datalist
|
|
|
|
(** make a div of class "slippery-slidy-container" containing a slider of class
|
|
"slippery-slidy-slider" wi id [id]
|
|
|
|
don't forget to add your slider and datalist to your document *)
|
|
val mk_slider :
|
|
min:float
|
|
-> max:float
|
|
-> step:step_kind
|
|
-> value:float
|
|
-> id:string
|
|
-> label:string
|
|
-> datalist_id:string option
|
|
-> slider
|
|
|
|
val add_slider_input_listener : slider -> (float -> unit) -> unit
|