Mercurial > repos > tabletprog

comparison editor.tp @ 12:6e4851a204a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add ability to load code into editor
author Mike Pavone <pavone@retrodev.com>
date Wed, 21 Mar 2012 23:13:51 -0700
parents 5447cff52da6
children 85fb6ba15bc6
comparison
equal deleted inserted replaced
11:5447cff52da6 12:6e4851a204a5
3 q <- foreign: :query {} 3 q <- foreign: :query {}
4 qall <- foreign: :query {} 4 qall <- foreign: :query {}
5 each <- foreign: :iterable fun {} 5 each <- foreign: :iterable fun {}
6 addClass <- foreign: :node className {} 6 addClass <- foreign: :node className {}
7 removeClass <- foreign: :node className {} 7 removeClass <- foreign: :node className {}
8 get <- foreign: :url onSuccess onFail onOther {}
8 9
9 //tabletprog JS helpers 10 //tabletprog JS helpers
10 setP <- foreign: :object property val {} 11 setP <- foreign: :object property val {}
11 getP <- foreign: :object property {} 12 getP <- foreign: :object property {}
12 13
14 console <- foreign: #{ 15 console <- foreign: #{
15 log <- foreign: #{} 16 log <- foreign: #{}
16 } 17 }
17 18
18 main <- { 19 main <- {
19 each: (qall: "li") :idx el { 20 //bind handlers for file browser links
21 each: (qall: "a") :idx el {
22 el setP: "onclick" :event {
23 console log: "click"
24 link <- foreign: this
25 get: (link getP: "href") :request {
26 addClass: (q: "body") "editorMode"
27 console log: (request getP: "responseText")
28 (q: "#src") setP: "textContent" (request getP: "responseText")
29 }
30 console log: "returning false"
31 foreign: false
32 }
33 }
34
35 //bind handlers for editor buttons
36 each: (qall: ".controls li") :idx el {
20 el setP: "onclick" :event { 37 el setP: "onclick" :event {
21 srcel <- (q: "#src") 38 srcel <- (q: "#src")
22 srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML") 39 srcel setP: "textContent" (srcel getP: "textContent") + (el getP: "textContent")
23 } 40 }
24 } 41 }
25 (q: "#ops_button") setP: "onclick" :event { 42 (q: "#ops_button") setP: "onclick" :event {
26 addClass: (q: ".controls") "showops" 43 addClass: (q: ".controls") "showops"
27 } 44 }