diff options
author | Thomas White <taw@bitwiz.me.uk> | 2021-01-15 17:15:37 +0100 |
---|---|---|
committer | Thomas White <taw@bitwiz.me.uk> | 2021-01-15 17:15:37 +0100 |
commit | adba2eeed583885cd5586d1cf221d6b20139f958 (patch) | |
tree | e5774141eb9cc543205a458ac6b2d6e62d1575c5 /guile/starlet/midi-control | |
parent | 24e9e9679ba81cbedfd487b39255a7f689aa641f (diff) |
Remove selection-state
There's no reason for this to exist. Just change things directly in
programmer-state.
Diffstat (limited to 'guile/starlet/midi-control')
-rw-r--r-- | guile/starlet/midi-control/faders.scm | 8 |
1 files changed, 2 insertions, 6 deletions
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) |