neseted macro args

neseted macro args pasted by rivo on Wed Apr 17 17:48:53 2013

(define-syntax defitem
	(syntax-rules ()
		((_ name)
			(define-syntax name
				(syntax-rules ()
					((_ args ...)
						(print "args:" args ...)))))))
(defitem x)

(x 1 2 3)

no title pasted by rivo on Wed Apr 17 18:05:51 2013

(Window
	bound: (x: 0 y: 0 w: 100 h: 200)
	(Columns
		margins: 10
		bounds: (center-of parent)
		(Text text: "1" on-click: (lambda() (print "1")))
		(Text text: "2")
		(Text text: "3")))

parent, center-of pasted by DerGuteMoritz on Wed Apr 17 18:11:24 2013

(define (parent item)
  ... get the parent of item somehow ...)

(define (center-of accessor)
  (lambda (item)
    (calculate-center-of (accessor item))))

no title added by rivo on Wed Apr 17 20:42:38 2013

(define-syntax defitem
	(syntax-rules ()
		((_ name)
			(define-syntax name
				(syntax-rules ::: ()
					((_ args :::)
						(print "args:" args :::)))))))