diff options
author | Thomas White <taw@physics.org> | 2021-05-22 20:17:37 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-05-22 20:17:37 +0200 |
commit | 16884be0fda1908918adbef03ebc3949084839e7 (patch) | |
tree | fb67d7efb07d87d45b8e7a2bdcb1699c3433c3b3 /guile/starlet | |
parent | 757c3424af0156286725f83c3d1acdcd3654fb5c (diff) |
Handle LED via select-on-button
Diffstat (limited to 'guile/starlet')
-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))) |