musikinformatik-wise-24.org

(in-package :clamps)

(defparameter *slider1* (make-ref 0.0))

(defun slider-gui (body)
  "handler for /slider-gui."
  (setf (title (html-document body)) "Slider")
  (create-o-slider body (bind-refs-to-attrs *slider1* "value")
                   :min 0 :max 127 :direction :up
                   :css `(:display "inline-block" :margin "0.5em"
                          :background "white" :height "90%" :width "2em")))

(set-on-new-window #'slider-gui :path "/slider-gui")