From 581686787d86af3ed9294b29ec68f6d39cd5906d Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 19 Jan 2021 21:05:50 +0100 Subject: sel: Handle lists --- guile/starlet/midi-control/faders.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'guile/starlet/midi-control/faders.scm') diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index 912d9f7..d0363d7 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -213,6 +213,13 @@ ;; 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) @@ -235,5 +242,5 @@ (set! midi-callbacks (map (lambda (control-spec) (midi-control-attr control-spec - fixture-list)) + (flatten-sublists fixture-list))) control-map)))) -- cgit v1.2.3