From 5ba45bfb6da6aa7f8d409172c3166c92f5f2cccd Mon Sep 17 00:00:00 2001 From: Thomas White Date: Wed, 18 Nov 2020 18:08:49 +0100 Subject: Improve syntax for cue parts --- guile/starlet/playback.scm | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) (limited to 'guile/starlet/playback.scm') 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 -- cgit v1.2.3