init

examples/dune

@@ -0,0 +1,5 @@
+(executable
+ (name slider)
+ (modules slider)
+ (libraries js_of_ocaml brr slippery_slidy)
+ (modes js))

examples/slider.ml

@@ -0,0 +1,32 @@
+(* This add a slidder to into <main>
+   moving the slider print its value to the console *)
+open Brr
+
+let append_el_to_main el =
+  let main =
+    match El.find_first_by_selector (Jstr.v "main") with
+    | Some main -> main
+    | None -> failwith "append_el_to_main: main element not found"
+  in
+  El.append_children main [ el ];
+  ()
+
+let () =
+  let datalist =
+    Slippery_slidy.mk_datalist
+      (List.map Jstr.of_float [ 2.; 3.; 5.; 8.; 13. ])
+      "my-slider-datalist"
+  in
+  let slider =
+    Slippery_slidy.mk_slider ~min:0. ~max:100. ~step:Any ~value:50.
+      ~id:"my-slider" ~label:"Important slider, slide carefully"
+      ~datalist_id:(Some datalist.datalist_id)
+  in
+  append_el_to_main slider.slider_el;
+  (* don't forget to add datalist to document too! *)
+  append_el_to_main datalist.datalist_el;
+
+  (* add listener on slider change *)
+  Slippery_slidy.add_slider_input_listener slider (fun x ->
+      Printf.printf "slider value: %f !!@." x );
+  ()