Move 'guile-midi' into Starlet namespace

2 files changed, 27 insertions, 1 deletions

diff --git a/guile/guile-midi/control.scm b/guile/starlet/midi-control/base.scm
index 548eead..e77e969 100644
--- a/guile/guile-midi/control.scm
+++ b/guile/starlet/midi-control/base.scm
@@ -1,4 +1,4 @@
-(define-module (guile-midi control)
+(define-module (starlet midi-control base)
   #:use-module (oop goops)
   #:use-module (ice-9 atomic)
   #:use-module (ice-9 threads)
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")))))