getting rid of the copying debug message

web-world/examples/hot-cross-buns/hot-cross-buns.rkt

@@ -4,21 +4,39 @@
 
 (define base-view (->view index.html))
 
+(define (remove-all x elts)
+  (cond
+   [(empty? elts)
+    empty]
+   [(equal? x (first elts))
+    (remove-all x (rest elts))]
+   [else
+    (cons (first elts)
+          (remove-all x (rest elts)))]))
+
 (define view-with-buttons
   (foldl (lambda (name a-view)
            (view-bind (view-focus a-view name)
                       "click"
                       (lambda (world a-view)
-                        (begin
-                          (printf "here: ~s\n" (view-attr
-                                                a-view
-                                                "checked"))
-                          world))))
+                        (cond
+                         [(view-has-attr? a-view "checked")
+                          (cons name world)]
+                         [else
+                          (remove-all name world)]))))
          base-view
          '("hot" "cross" "buns")))
 
+(define view-with-buttons-and-reset
+  (view-bind (view-focus view-with-buttons "reset")
+             "click"
+             (lambda (world a-view)
+               empty)))
+
+
 (define (draw w v)
-  v)
+  (update-view-text (view-focus v "mydiv")
+                    (format "~s" w)))
 
 (big-bang '()
           (initial-view view-with-buttons)

web-world/js-impl.js

@@ -48,7 +48,6 @@
         // copy over the attributes as well
         if (node.attributes) {
             for (i = 0; i < node.attributes.length; i++) {
-                console.log('copying: ', node.attributes[i]);
                 $(result).attr(node.attributes[i].name,
                                node.attributes[i].value);
             }