From 610057e7b5b2ac83261de1e599f1a4943d796b21 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Mon, 24 May 2021 16:14:03 +0200
Subject: Indicate when stop button can be pressed

---
 guile/starlet/midi-control/button-utils.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guile/starlet/midi-control/button-utils.scm b/guile/starlet/midi-control/button-utils.scm
index 2f19c8d..449a164 100644
--- a/guile/starlet/midi-control/button-utils.scm
+++ b/guile/starlet/midi-control/button-utils.scm
@@ -47,6 +47,8 @@
            (send-note-on pause-note))
           ((eq? new-state 'ready)
            (send-note-on ready-note))
+          ((eq? new-state 'running)
+           (send-note-on ready-note))
           (else
             (send-note-off ready-note)))))))
 
@@ -61,7 +63,12 @@
     #:func (lambda () (stop! pb)))
 
   (when ready-note
-    (send-note-on ready-note)))
+    (add-hook!
+      (state-change-hook pb)
+      (lambda (new-state)
+        (if (eq? new-state 'running)
+            (send-note-on ready-note)
+            (send-note-off ready-note))))))
 
 
 (define* (make-back-button pb button
-- 
cgit v1.2.3