From 800195398b0dc5f33344ef6d1ef16cd047ba5b2f Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.me.uk>
Date: Sat, 9 Jan 2021 11:29:31 +0100
Subject: Add select-on-button

---
 guile/starlet/midi-control/button-utils.scm     | 31 +++++++++++++++++++++++++
 guile/starlet/midi-control/playback-buttons.scm | 21 -----------------
 2 files changed, 31 insertions(+), 21 deletions(-)
 create mode 100644 guile/starlet/midi-control/button-utils.scm
 delete mode 100644 guile/starlet/midi-control/playback-buttons.scm

(limited to 'guile/starlet/midi-control')

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))))
diff --git a/guile/starlet/midi-control/playback-buttons.scm b/guile/starlet/midi-control/playback-buttons.scm
deleted file mode 100644
index 6e7dc35..0000000
--- a/guile/starlet/midi-control/playback-buttons.scm
+++ /dev/null
@@ -1,21 +0,0 @@
-(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"))))
-- 
cgit v1.2.3