-(define-macro (make-view body)
- `(build-view (lambda () ,body)))
+(defmacro* view (#:key (priority 0) . elements)
+ `(let ((e (view-elements ,@elements)))
+ (make-view (car e) (cadr e) ,priority)))
+
+(define-macro (view-elements . elements)
+ (cond ((null? elements) `'(() ()))
+ (else
+ `(let ((l (view-elements ,@(cdr elements))))
+ ,(let ((e (car elements)))
+ `(cond ((mesh? ,e)
+ (list (car l) (cons ,e (cadr l))))
+ ((procedure? ,e)
+ (list (cons ,(if (list? e) e `(lambda () (,e))) (car l))
+ (cadr l)))
+ (else l)))))))
+
+(define (controllers-list list controllers)
+ (cond ((null? controllers)
+ list)
+ ((list? (car controllers))
+ (assoc-set! (controllers-list list (cdr controllers)) (caar controllers) (cadar controllers)))
+ (else
+ (assoc-set! (controllers-list list (cdr controllers)) (gensym) (car controllers)))))