From adba2eeed583885cd5586d1cf221d6b20139f958 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Fri, 15 Jan 2021 17:15:37 +0100 Subject: Remove selection-state There's no reason for this to exist. Just change things directly in programmer-state. --- guile/starlet/midi-control/faders.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (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 27089ab..1c321aa 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -47,7 +47,7 @@ #:cc-number cc-number #:func (lambda (prev-cc-val new-cc-value) (set! offset (+ offset (ccval->offset new-cc-value))) - (set-attr! selection-state + (set-attr! programmer-state fix attr (+ old-val offset)))))) @@ -83,7 +83,7 @@ #:func (lambda (prev-cc-val new-cc-value) (when congruent - (set-attr! selection-state + (set-attr! programmer-state fix attr (ccval->percent new-cc-value))) @@ -164,10 +164,6 @@ (send-note-off leds)))) - (add-state-to-state! merge-rule-replace - selection-state - programmer-state) - (clear-state! selection-state) (for-each remove-midi-callback! midi-callbacks) (for-each (lambda (control-spec) -- cgit v1.2.3