--- a/editor.tp	Sun Mar 25 14:25:33 2012 -0700
+++ b/editor.tp	Sun Mar 25 15:31:10 2012 -0700
@@ -20,22 +20,41 @@
 console <- foreign: #{
 	log <- foreign: #{}
 }
+window <- #{}
 
+//kernel definitions
+true <- #{
+  if:else <- :self trueblock :elseblock {
+    trueblock:
+  }
+}
+
+false <- #{
+  if:else <- :self trueblock :elseblock {
+    elseblock:
+  }
+}
+
+editFile <- :path {
+	get: path :request {
+		addClass: (q: "body") "editorMode"
+		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")
+	}
+}
+
+//editor code
 main <- {
 	//bind handlers for file browser links
 	each: (qall: "a") :idx el {
 		el setP: "onclick" :event {
 			console log: "click"
 			link <- foreign: this
-			get: (link getP: "href") :request {
-				addClass: (q: "body") "editorMode"
-				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")
-			}
+			editFile: (link getP: "href")
 			foreign: false
 		}
 	}
@@ -54,6 +73,13 @@
 	(q: "#builtin_button") setP: "onclick" :event {
 		removeClass: (q: ".controls") "showops"
 	}
+	
+	path <- (window getP: "location") getP: "pathname"
+	if: (path indexOf: "/edit/") = 0 {
+		editFile: (path substr: 5)
+	} else: {
+		console log: "not edit page"
+	}
 }
 
 }