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

working on xexps

Browse Source
This commit is contained in:
Danny Yoo 2011-09-01 13:09:03 -04:00
parent 29671b68f1
commit 9dab7ba329
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
web-world/examples/todo/todo.rkt
View File

@ -33,12 +33,11 @@
[else [else
(view-append-child (view-focus view "#items") (view-append-child (view-focus view "#items")
;; FIXME: I want this to add a DOM to this. ;; FIXME: I want this to add a DOM to this.
`(li (@ (id ,(item-id item))) (xexp->dom `(li (@ (id ,(item-id item)))
(item-content item)))])) ,(item-content item))))]))
(define the-view (define the-view
(view-bind (view-focus (->view index.html) "#add-button") (view-bind (view-focus (->view index.html) "#add-button")
"click" "click"