init

lib/slippery_slidy.mli

@@ -0,0 +1,36 @@
+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