(* 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 );
  ()