--- a/editor.tp	Sun Mar 25 16:52:11 2012 -0700
+++ b/editor.tp	Sun Mar 25 21:11:10 2012 -0700
@@ -7,10 +7,6 @@
 removeClass <- foreign: :node className {}
 get <- foreign: :url onSuccess onFail onOther {}
 
-//JS interop helpers
-setP <- foreign: :object property val {}
-getP <- foreign: :object property {}
-
 //TP Parser
 parser <- foreign: #{
 	parse <- foreign: :str {}
@@ -38,7 +34,7 @@
 editFile <- :path {
 	get: path :request {
 		addClass: (q: "body") "editorMode"
-		src <- request getP: "responseText"
+		src <- request responseText
 		console log: src
 		ast <- parser parse: src
 		console log: ast
@@ -50,29 +46,32 @@
 main <- {
 	//bind handlers for file browser links
 	each: (qall: "a") :idx el {
-		el setP: "onclick" :event {
+		el onclick!: :event {
 			link <- foreign: this
-			editFile: (link getP: "href")
+			path <- link href
+			path <- path substr: (path indexOf: "/edit/") + 5
+			console log: path
+			editFile: path
 			foreign: false
 		}
 	}
 	
 	//bind handlers for editor buttons
 	each: (qall: ".controls li") :idx el {
-		el setP: "onclick" :event {
+		el onclick!: :event {
 			srcel <- (q: "#src")
-			srcel setP: "textContent" (srcel getP: "textContent") + (el getP: "textContent")
+			srcel textContent!: (srcel textContent) + (el textContent)
 		}
 	}
-	(q: "#ops_button") setP: "onclick" :event {
+	(q: "#ops_button") onclick!: :event {
 		addClass: (q: ".controls") "showops"
 	}
 	
-	(q: "#builtin_button") setP: "onclick" :event {
+	(q: "#builtin_button") onclick!: :event {
 		removeClass: (q: ".controls") "showops"
 	}
 	
-	path <- (window getP: "location") getP: "pathname"
+	path <- (window location) pathname
 	if: (path indexOf: "/edit/") = 0 {
 		editFile: (path substr: 5)
 	} else: {}