Write window declarations using a syntax

[gacela.git] / gacela / window.scm

diff --git a/gacela/window.scm b/gacela/window.scm
index eeed32d2beba1c6cc33a4adb928a7f48545f06b7..6d43ce600971c29f18be332dcc4ca2d8de7ec0be 100644 (file)
--- a/gacela/window.scm
+++ b/gacela/window.scm
@@ -20,8 +20,13 @@
   #:export (window))
 
 
-(define* (window window-properties #:optional scene)
-  (make-scene
-   "window"
-   (lambda ()
-     (apply run-scene (cons scene window-properties)))))
+(define-syntax window
+  (lambda (x)
+    (syntax-case x ()
+      ((_ ((property-name property-value) ...) scene)
+       #'(make-scene
+         "window"
+         (lambda ()
+           (apply run-scene (cons scene
+                                  (append (list (symbol->keyword 'property-name) property-value)
+                                          ...)))))))))