Mercurial > repos > tabletprog

comparison editor.tp @ 11:5447cff52da6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }