diff options
author | Thomas White <taw@physics.org> | 2020-11-18 18:08:49 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-11-18 22:26:05 +0100 |
commit | 5ba45bfb6da6aa7f8d409172c3166c92f5f2cccd (patch) | |
tree | 5697a56d81ef511f92745e552a9192aec7a45654 /guile | |
parent | e6449987b4969a1f2abdfd9d227d4c9951d3bc9c (diff) |
Improve syntax for cue parts
Diffstat (limited to 'guile')
-rw-r--r-- | guile/starlet/playback.scm | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 1f2fde1..efbd1d6 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -330,6 +330,11 @@ (and (eq? (car attr-el) fix) (eq? (cdr attr-el) (get-attr-name attr)))) + ((list? attr-el) + (and (memq fix attr-el) + (or (memq attr attr-el) + (memq (get-attr-name attr) attr-el)))) + (else #f))) @@ -385,13 +390,19 @@ body ...)))) -(define* (cue-part attr-list - #:key - (up-time 5) - (down-time 5) - (up-delay 0) - (down-delay 0)) +(define-syntax cue-part + (syntax-rules () + ((_ (fixtures ...) params ...) + (make-cue-part-obj (list fixtures ...) + params ...)))) + +(define* (make-cue-part-obj attr-list + #:key + (up-time 5) + (down-time 5) + (up-delay 0) + (down-delay 0)) (make-cue-part attr-list (make-fade-times up-time |