From 07eb061a3dc3350e7f5db26b184bbbf6c3ac029d Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 11 Jun 2022 14:46:02 +0200
Subject: Fixture display: Clearer indication when a cue is running

---
 guile/starlet/playback.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'guile/starlet/playback.scm')

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 747dee7..5e6038e 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -46,7 +46,8 @@
             back!
             reload-cue-list!
             reassert-current-cue!
-            state-change-hook))
+            state-change-hook
+            playback-state))
 
 
 ;; A "playback" is a state which knows how to run cues
@@ -366,10 +367,14 @@
       'no-more-cues-in-list)))
 
 
+(define (playback-state pb)
+  (atomic-box-ref (state-box pb)))
+
+
 (define-method (write (pb <starlet-playback>) port)
   (format port
           "#<<starlet-playback> state: ~a current-cue: ~a next-cue: ~a>"
-          (atomic-box-ref (state-box pb))
+          (playback-state pb)
           (exact->inexact (get-playback-cue-number pb))
           (next-cue-number pb)))
 
-- 
cgit v1.2.3