From d80d7bdb3adc3bc19e4ca6d5a8c3a7732a4bb598 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Tue, 22 Nov 2011 02:30:44 -0500
Subject: [PATCH] getting rid of the copying debug message

---
 .../hot-cross-buns/hot-cross-buns.rkt         | 30 +++++++++++++++----
 web-world/js-impl.js                          |  1 -
 2 files changed, 24 insertions(+), 7 deletions(-)

diff --git a/web-world/examples/hot-cross-buns/hot-cross-buns.rkt b/web-world/examples/hot-cross-buns/hot-cross-buns.rkt
index a904f7b..d9a3885 100644
--- a/web-world/examples/hot-cross-buns/hot-cross-buns.rkt
+++ b/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)
diff --git a/web-world/js-impl.js b/web-world/js-impl.js
index f424bb6..69ce92c 100644
--- a/web-world/js-impl.js
+++ b/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);
             }