blob: 6e7dc3523e76d6fc2dfb58540dd19a1009a8cd47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(define-module (starlet midi-control playback-buttons)
#:use-module (starlet midi-control base)
#:use-module (starlet playback)
#:export (make-go-button
make-stop-button))
(define* (make-go-button pb button
#:key (channel #f))
(register-midi-note-callback!
#:channel channel
#:note-number button
#:func (lambda () (go! pb))))
(define* (make-stop-button pb button
#:key (channel #f))
(register-midi-note-callback!
#:channel channel
#:note-number button
#:func (lambda () (display "Stop/back!\n"))))
|