14 lines
289 B
Scheme
14 lines
289 B
Scheme
(pragma->sxml m)
|
|
|
|
(define (mount-root component)
|
|
(m.mount
|
|
document.body
|
|
component))
|
|
|
|
(define-macro (component view . args)
|
|
(when (= (remainder (length args) 2) 1)
|
|
(error "Component expected even length args."))
|
|
`(object
|
|
:view
|
|
(lambda (vnode) (,@view))
|
|
,@args))
|