Add select-on-button

1 files changed, 31 insertions, 0 deletions

diff --git a/guile/starlet/midi-control/button-utils.scm b/guile/starlet/midi-control/button-utils.scm
new file mode 100644
index 0000000..008d2c5
--- /dev/null
+++ b/guile/starlet/midi-control/button-utils.scm
@@ -0,0 +1,31 @@
+(define-module (starlet midi-control button-utils)
+  #:use-module (starlet midi-control base)
+  #:use-module (starlet midi-control faders)
+  #:use-module (starlet playback)
+  #:export (make-go-button
+            make-stop-button
+            select-on-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"))))
+
+
+(define* (select-on-button button fixture
+                           #:key (channel #f))
+  (register-midi-note-callback!
+   #:channel channel
+   #:note-number button
+   #:func (lambda () (sel fixture))))