Figure out sxml (this took longer than I'd like to admit)
This commit is contained in:
parent
85e9e1f5f1
commit
2ffabddba4
2 changed files with 21 additions and 12 deletions
11
lib/mithril.scm
Normal file
11
lib/mithril.scm
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
(pragma->sxml m)
|
||||
|
||||
(define (mount-root component)
|
||||
(m.mount
|
||||
document.body
|
||||
component))
|
||||
|
||||
(define-macro (component view)
|
||||
`(object
|
||||
:view
|
||||
(lambda () (,@view))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue