From 82f75f966b1d8c02ac87b0030a724855c31881af Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 22 May 2021 15:03:11 +0200 Subject: Add make-back-button --- guile/starlet/midi-control/button-utils.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'guile/starlet/midi-control') diff --git a/guile/starlet/midi-control/button-utils.scm b/guile/starlet/midi-control/button-utils.scm index 051935f..859412d 100644 --- a/guile/starlet/midi-control/button-utils.scm +++ b/guile/starlet/midi-control/button-utils.scm @@ -24,6 +24,7 @@ #:use-module (starlet playback) #:export (make-go-button make-stop-button + make-back-button select-on-button)) @@ -40,7 +41,15 @@ (register-midi-note-callback! #:channel channel #:note-number button - #:func (lambda () (display "Stop/back!\n")))) + #:func (lambda () (stop! pb)))) + + +(define* (make-back-button pb button + #:key (channel #f)) + (register-midi-note-callback! + #:channel channel + #:note-number button + #:func (lambda () (back! pb)))) (define* (select-on-button button fixture -- cgit v1.2.3