1 files changed, 26 insertions, 0 deletions
diff --git a/guile/starlet/midi-control/playback-buttons.scm b/guile/starlet/midi-control/playback-buttons.scm
new file mode 100644
index 0000000..a28293a
--- /dev/null
+++ b/guile/starlet/midi-control/playback-buttons.scm
@@ -0,0 +1,26 @@
+(define-module (starlet midi-control playback-buttons)
+  #:use-module (starlet midi-control base)
+  #:use-module (starlet playback)
+  #:export (make-midi-playback-buttons))
+
+
+(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)
+    (register-midi-note-callback!
+     #:channel chan
+     #:note-number go-button-note
+     #:func (lambda () (go! playback)))
+    (register-midi-note-callback!
+     #:channel chan
+     #:note-number stop-button-note
+     #:func (lambda () (display "Stop/back!\n")))))