changeset 11:5447cff52da6

Use tabletproglang in editor
author Mike Pavone <pavone@retrodev.com>
date Wed, 21 Mar 2012 21:42:38 -0700
parents 02b20292f187
children 6e4851a204a5
files editor.tp index.html
diffstat 2 files changed, 41 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- /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"
+	}
+}
+
+}
--- a/index.html	Wed Mar 21 21:25:10 2012 -0700
+++ b/index.html	Wed Mar 21 21:42:38 2012 -0700
@@ -3,7 +3,13 @@
 <head>
 	<title>Awesome!</title>
 	<script src="mquery.js"></script>
-	<script src="editor.js"></script>
+	<script src="peg.js"></script>
+	<script src="mquery.js"></script>
+	<script src="parser.js"></script>
+	<script src="compiler.js"></script>
+	<script src="jsbackend.js"></script>
+	<script src="scripttags.js"></script>
+	<script src="editor.tp" type="text/tabletprog"></script>
 	<link rel="stylesheet" href="editor.css">
 </head>
 <body>