From 69c60aac07f604e34d5ed351007bb5efa4e16c38 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 26 Aug 2011 20:56:06 -0400
Subject: [PATCH] localizing domToCursor, so that I can do some more work

---
 web-world/js-impl.js | 33 ++++++++++++++++++++++++++++++---
 whalesong            |  8 --------
 2 files changed, 30 insertions(+), 11 deletions(-)
 delete mode 100755 whalesong

diff --git a/web-world/js-impl.js b/web-world/js-impl.js
index 6bfe7bc..eb37503 100644
--- a/web-world/js-impl.js
+++ b/web-world/js-impl.js
@@ -15,6 +15,33 @@
         MACHINE.modules['whalesong/resource/structs.rkt'].namespace['struct:resource'];
 
 
+    var domToCursor = function(dom) {
+        var domOpenF = 
+            // To go down, just take the children.
+            function(n) { 
+                return [].slice.call(n.childNodes, 0);
+            };
+        var domCloseF = 
+            // To go back up, take the node, do a shallow cloning, and replace the children.
+            function(node, children) { 
+                var i;
+                var newNode = node.cloneNode(false);
+                for (i = 0; i < children.length; i++) {
+                    newNode.appendChild(children[i].cloneNode(true));
+                }
+                return newNode; 
+            };
+        var domAtomicF =
+            function(node) {
+                return node.nodeType !== 1;
+            };
+        return TreeCursor.adaptTreeCursor(dom.cloneNode(true),
+                                          domOpenF,
+                                          domCloseF,
+                                          domAtomicF);
+    };
+
+
 
 
 
@@ -237,7 +264,7 @@
 
     View.prototype.getMockAndResetFocus = function(nonce) {
         this.focus = this.top;
-        return new MockView(TreeCursor.domToCursor($(this.top).get(0)),
+        return new MockView(domToCursor($(this.top).get(0)),
                             [],
                             nonce);
     };
@@ -301,14 +328,14 @@
             } catch (exn) {
                 return onFail(exn);
             }
-            return onSuccess(new MockView(TreeCursor.domToCursor(dom.get(0)), [], undefined));
+            return onSuccess(new MockView(domToCursor(dom.get(0)), [], undefined));
         } else {
             try {
                 dom = $(plt.baselib.format.toDomNode(x))
             } catch (exn) {
                 return onFail(exn);
             }
-            return onSuccess(new MockView(TreeCursor.domToCursor(dom.get(0)), [], undefined));
+            return onSuccess(new MockView(domToCursor(dom.get(0)), [], undefined));
         }
     };
 
diff --git a/whalesong b/whalesong
deleted file mode 100755
index f8346ad..0000000
--- a/whalesong
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/bin/sh
-# This script was created by make-mzscheme-launcher
-
-# {{{ bindir
-bindir="/local/projects/racket/releases/5.1.3/bin"
-# }}} bindir
-
-exec "${bindir}/racket" -N "$0" '/gpfs/main/home/dyoo/work/whalesong/whalesong.rkt'  ${1+"$@"}