open Brr
open Brr_note
open Note

(** Create a slider element, and a signal with the value *)
let slider ~at =
  let slider =
    El.input ~at () in

  let event =
    Evr.on_el
      Ev.input (fun _ ->
          let raw_value = El.prop El.Prop.value slider in
          Jstr.to_int raw_value)
      slider
    |> S.hold (Jstr.to_int (El.prop El.Prop.value slider))
  in
  slider, event