Commit ae2c29a5 authored by Brandon Invergo's avatar Brandon Invergo

Simplify AK1 Ardour example.

parent 3ebe1b60
...@@ -41,12 +41,11 @@ ...@@ -41,12 +41,11 @@
#:pos-mod-keys (list key-leftshift) #:pos-mod-keys (list key-leftshift)
#:knob-max (ak1:knob-max) #:knob-max (ak1:knob-max)
#:invert #t)) #:invert #t))
#:idle-wait 0.5 #:init (list (lambda ()
#:idle-hooks (list (lambda () (turn-off-ctls
(set-ctl (control-alsa-ctl ak1:knob) #f))) (map control-alsa-ctl
(list ak1:left ak1:middle ak1:right ak1:knob)))))
#:exit-hooks (list (lambda () #:exit-hooks (list (lambda ()
(turn-off-ctls (set-ctl (control-alsa-ctl ak1:middle) #f))))
(map control-alsa-ctl
(list ak1:left ak1:middle ak1:right ak1:knob))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment