comp-spin-slider

comp-spin-slider support change value via touch and spin:

comp-spin-slider (>> states :c) $ {}
  :value (:c state)
  :unit 10
  :min 1
  :max 10
  :position $ [] 20 120
  ; :fill (hslx 50 90 70)
  ; :color (hslx 200 90 30)
  :border-color $ hslx 200 90 70
  :border-width 4
  :label "|Name of value"
  :fraction 1
  :on-change $ fn (value d!) (d! cursor (assoc state :c value))
  :on-move $ fn (pos d!) (d! cursor (assoc state :pos pos))