diff options
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/midi-control/button-utils.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/guile/starlet/midi-control/button-utils.scm b/guile/starlet/midi-control/button-utils.scm index 8dcfbf2..2f19c8d 100644 --- a/guile/starlet/midi-control/button-utils.scm +++ b/guile/starlet/midi-control/button-utils.scm @@ -78,8 +78,13 @@ (define* (select-on-button button fixture - #:key (channel #f)) + #:key + (channel #f) + (ready-note #f)) (register-midi-note-callback! - #:channel channel - #:note-number button - #:func (lambda () (sel fixture)))) + #:channel channel + #:note-number button + #:func (lambda () (sel fixture))) + + (when ready-note + (send-note-on ready-note))) |