aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/midi-control/faders.scm
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2021-01-26 22:30:11 +0100
committerThomas White <taw@physics.org>2021-01-26 22:30:11 +0100
commitf78e14611ad9b32a224bdc4058651447ad3a8f32 (patch)
tree300275499578f5800d568c647a0c58de312caae6 /guile/starlet/midi-control/faders.scm
parent0a96751c623f7b3599fd6c576b2e669cb939c9c4 (diff)
Move "sel" to base, and add a callback
Diffstat (limited to 'guile/starlet/midi-control/faders.scm')
-rw-r--r--guile/starlet/midi-control/faders.scm17
1 files changed, 6 insertions, 11 deletions
diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm
index cf672f2..113917c 100644
--- a/guile/starlet/midi-control/faders.scm
+++ b/guile/starlet/midi-control/faders.scm
@@ -4,8 +4,7 @@
#:use-module (ice-9 receive)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-1)
- #:export (state-on-fader
- sel))
+ #:export (state-on-fader))
(define (put-state-on-fader cc-number
@@ -241,15 +240,8 @@
;; Stuff to clear up when we're done with selected fixtures
(define midi-callbacks '())
-(define (flatten-sublists l)
- (fold (lambda (a prev)
- (if (list? a)
- (append a prev)
- (cons a prev)))
- '() l))
-
-(define (sel . fixture-list)
+(define (select-midi fixture-list)
(define (led-off leds)
(cond
@@ -268,5 +260,8 @@
(when (car fixture-list)
(set! midi-callbacks
- (map (partial midi-control-attr (flatten-sublists fixture-list))
+ (map (partial midi-control-attr fixture-list)
control-map))))
+
+
+(add-hook! selection-hook select-midi)