From f92fa565e9366e90d6faff83668a654e553d34ce Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 6 Sep 2020 22:23:17 +0200
Subject: Make cue 0 implicit

---
 guile/starlet/playback.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 98ce445..6c7ed1b 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -265,4 +265,10 @@
 
 
 (define-syntax cue-list
-  (identifier-syntax vector))
+  (syntax-rules ()
+    ((_ body ...)
+     (vector (cue 0
+                  (cue-state (apply-state home-state))
+                  #:fade-up 1
+                  #:fade-down 1)
+             body ...))))
-- 
cgit v1.2.3