diff options
Diffstat (limited to 'guile/starlet/midi-control/playback-buttons.scm')
-rw-r--r-- | guile/starlet/midi-control/playback-buttons.scm | 33 |
1 files changed, 14 insertions, 19 deletions
diff --git a/guile/starlet/midi-control/playback-buttons.scm b/guile/starlet/midi-control/playback-buttons.scm index a28293a..6e7dc35 100644 --- a/guile/starlet/midi-control/playback-buttons.scm +++ b/guile/starlet/midi-control/playback-buttons.scm @@ -1,26 +1,21 @@ (define-module (starlet midi-control playback-buttons) #:use-module (starlet midi-control base) #:use-module (starlet playback) - #:export (make-midi-playback-buttons)) + #:export (make-go-button + make-stop-button)) -(define (make-midi-playback-buttons playback - chan - go-led-note - go-button-note - stop-led-note - stop-button-note) - (let ((go-led (make-midi-led #:channel chan - #:note-number go-led-note)) - (stop-led (make-midi-led #:channel chan - #:note-number stop-led-note))) - (set-midi-led! go-led #t) - (set-midi-led! stop-led #t) +(define* (make-go-button pb button + #:key (channel #f)) (register-midi-note-callback! - #:channel chan - #:note-number go-button-note - #:func (lambda () (go! playback))) + #:channel channel + #:note-number button + #:func (lambda () (go! pb)))) + + +(define* (make-stop-button pb button + #:key (channel #f)) (register-midi-note-callback! - #:channel chan - #:note-number stop-button-note - #:func (lambda () (display "Stop/back!\n"))))) + #:channel channel + #:note-number button + #:func (lambda () (display "Stop/back!\n")))) |