diff options
author | Thomas White <taw@bitwiz.me.uk> | 2021-01-19 21:18:44 +0100 |
---|---|---|
committer | Thomas White <taw@bitwiz.me.uk> | 2021-01-19 21:18:44 +0100 |
commit | 6a7b0b025835e87b139df68bc59cc78e14bd2b06 (patch) | |
tree | 06c1af8aa835e67901f228fd54c77b06f48ca395 | |
parent | e092fcd3c7f4deae473d282442b3a9b485bb3c3d (diff) |
Rename "on-fader" to "state-on-fader"
More specific name.
-rw-r--r-- | guile/starlet/midi-control/faders.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index 1fd3003..24c1188 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -4,13 +4,13 @@ #:use-module (ice-9 receive) #:use-module (srfi srfi-9) #:use-module (srfi srfi-1) - #:export (on-fader + #:export (state-on-fader sel)) -(define (state-on-fader cc-number - channel - state) +(define (put-state-on-fader cc-number + channel + state) (register-state! (lighting-state (state-for-each @@ -31,15 +31,15 @@ state)))) -(define* (on-fader cc-number state - #:key (channel #f)) +(define* (state-on-fader cc-number state + #:key (channel #f)) (register-midi-cc-callback! #:cc-number cc-number #:func (lambda (old-val new-val) (when (or (eqv? old-val 0) (and (not old-val) (< new-val 10))) - (state-on-fader cc-number channel state))))) + (put-state-on-fader cc-number channel state))))) (define (current-values fixture-list attr-name) |