--- a/editor.tp	Wed Mar 21 23:17:49 2012 -0700
+++ b/editor.tp	Thu Mar 22 22:52:36 2012 -0700
@@ -7,10 +7,15 @@
 removeClass <- foreign: :node className {}
 get <- foreign: :url onSuccess onFail onOther {}
 
-//tabletprog JS helpers
+//JS interop helpers
 setP <- foreign: :object property val {}
 getP <- foreign: :object property {}
 
+//TP Parser
+parser <- foreign: #{
+	parse <- foreign: :str {}
+}
+
 //js builtins
 console <- foreign: #{
 	log <- foreign: #{}
@@ -24,10 +29,13 @@
 			link <- foreign: this
 			get: (link getP: "href") :request {
 				addClass: (q: "body") "editorMode"
-				console log: (request getP: "responseText")
-				(q: "#src") setP: "textContent" (request getP: "responseText")
+				src <- request getP: "responseText"
+				console log: src
+				ast <- parser parse: src
+				console log: ast
+				ast toHTML: (q: "#src")
+				//(q: "#src") setP: "textContent" (request getP: "responseText")
 			}
-			console log: "returning false"
 			foreign: false
 		}
 	}