# HG changeset patch # User Mike Pavone # Date 1332391358 25200 # Node ID 5447cff52da6e9139534e865e7d50743249d3467 # Parent 02b20292f187f54a301663fcca8baa92ae57d1d0 Use tabletproglang in editor diff -r 02b20292f187 -r 5447cff52da6 editor.tp --- /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" + } +} + +} diff -r 02b20292f187 -r 5447cff52da6 index.html --- 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 @@ Awesome! - + + + + + + +