--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/editor.tp	Wed Mar 21 21:42:38 2012 -0700
@@ -0,0 +1,34 @@
+#{
+//mquery functions
+q <- foreign: :query {}
+qall <- foreign: :query {}
+each <- foreign: :iterable fun {}
+addClass <- foreign: :node className {}
+removeClass <- foreign: :node className {}
+
+//tabletprog JS helpers
+setP <- foreign: :object property val {}
+getP <- foreign: :object property {}
+
+//js builtins
+console <- foreign: #{
+	log <- foreign: #{}
+}
+
+main <- {
+	each: (qall: "li") :idx el {
+		el setP: "onclick" :event {
+			srcel <- (q: "#src")
+			srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML")
+		}
+	}
+	(q: "#ops_button") setP: "onclick" :event {
+		addClass: (q: ".controls") "showops"
+	}
+	
+	(q: "#builtin_button") setP: "onclick" :event {
+		removeClass: (q: ".controls") "showops"
+	}
+}
+
+}