suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding a form to make it easier to do bulk binds

Browse Source
This commit is contained in:
Danny Yoo 2011-12-13 15:23:59 -05:00
parent e19c26f9d1
commit a75c3d6c85
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
web-world/main.rkt
View File

@ -2,8 +2,28 @@
(require "impl.rkt" (require "impl.rkt"
"helpers.rkt" "helpers.rkt"
"event.rkt") "event.rkt"
(for-syntax racket/base))
(provide (all-from-out "impl.rkt") (provide (all-from-out "impl.rkt")
(all-from-out "helpers.rkt") (all-from-out "helpers.rkt")
(all-from-out "event.rkt")) (all-from-out "event.rkt"))
(provide view-bind*)
;; A syntactic form to make it more convenient to focus and bind multiple things
;; (view-bind* a-view
;; [id type function]
;; [id type function] ...)
(define-syntax (view-bind* stx)
(syntax-case stx ()
[(_ a-view [a-selector a-type a-function] ...)
(foldl (lambda (a-selector a-type a-function a-view-stx)
#'(view-bind (view-focus #,a-view-stx #,a-selector)
#,a-type
#,a-function))
#'a-view
(syntax->list #'(a-selector ...))
(syntax->list #'(a-type ...))
(syntax->list #'(a-function ...)))]))