diff options
| author | Thomas White <taw@physics.org> | 2020-09-06 22:23:17 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-09-06 22:23:17 +0200 |
| commit | f92fa565e9366e90d6faff83668a654e553d34ce (patch) | |
| tree | d39ec4ff63da6cbcbd465a4369c5a432ac7ed0e6 | |
| parent | 6a473c6adff522378050cd9b227e946569a85db6 (diff) | |
Make cue 0 implicit
| -rw-r--r-- | examples/demo.scm | 4 | ||||
| -rw-r--r-- | guile/starlet/playback.scm | 8 |
2 files changed, 7 insertions, 5 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index 3936b28..ec8ad6c 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -78,10 +78,6 @@ (define my-cue-list (cue-list - (cue 0 - (cue-state (apply-state home-state)) - #:fade-up 1 - #:fade-down 1) (cue 1 (cue-state (apply-state example-state-1)) 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 ...)))) |