Mercurial > repos > tabletprog
comparison editor.tp @ 11:5447cff52da6
Use tabletproglang in editor
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 21 Mar 2012 21:42:38 -0700 |
parents | |
children | 6e4851a204a5 |
comparison
equal
deleted
inserted
replaced
10:02b20292f187 | 11:5447cff52da6 |
---|---|
1 #{ | |
2 //mquery functions | |
3 q <- foreign: :query {} | |
4 qall <- foreign: :query {} | |
5 each <- foreign: :iterable fun {} | |
6 addClass <- foreign: :node className {} | |
7 removeClass <- foreign: :node className {} | |
8 | |
9 //tabletprog JS helpers | |
10 setP <- foreign: :object property val {} | |
11 getP <- foreign: :object property {} | |
12 | |
13 //js builtins | |
14 console <- foreign: #{ | |
15 log <- foreign: #{} | |
16 } | |
17 | |
18 main <- { | |
19 each: (qall: "li") :idx el { | |
20 el setP: "onclick" :event { | |
21 srcel <- (q: "#src") | |
22 srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML") | |
23 } | |
24 } | |
25 (q: "#ops_button") setP: "onclick" :event { | |
26 addClass: (q: ".controls") "showops" | |
27 } | |
28 | |
29 (q: "#builtin_button") setP: "onclick" :event { | |
30 removeClass: (q: ".controls") "showops" | |
31 } | |
32 } | |
33 | |
34 } |