diff options
Diffstat (limited to 'guile/starlet/midi-control')
| -rw-r--r-- | guile/starlet/midi-control/button-utils.scm (renamed from guile/starlet/midi-control/playback-buttons.scm) | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/guile/starlet/midi-control/playback-buttons.scm b/guile/starlet/midi-control/button-utils.scm index 6e7dc35..008d2c5 100644 --- a/guile/starlet/midi-control/playback-buttons.scm +++ b/guile/starlet/midi-control/button-utils.scm @@ -1,8 +1,10 @@ -(define-module (starlet midi-control playback-buttons) +(define-module (starlet midi-control button-utils) #:use-module (starlet midi-control base) + #:use-module (starlet midi-control faders) #:use-module (starlet playback) #:export (make-go-button - make-stop-button)) + make-stop-button + select-on-button)) (define* (make-go-button pb button @@ -19,3 +21,11 @@ #:channel channel #:note-number button #:func (lambda () (display "Stop/back!\n")))) + + +(define* (select-on-button button fixture + #:key (channel #f)) + (register-midi-note-callback! + #:channel channel + #:note-number button + #:func (lambda () (sel fixture)))) |