Mercurial > repos > tabletprog
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>