From 6a7b0b025835e87b139df68bc59cc78e14bd2b06 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.me.uk>
Date: Tue, 19 Jan 2021 21:18:44 +0100
Subject: Rename "on-fader" to "state-on-fader"

More specific name.
---
 guile/starlet/midi-control/faders.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 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 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)
-- 
cgit v1.2.3