Mercurial > repos > tabletprog

comparison editor.tp @ 14:85fb6ba15bc6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start turning AST into HTML in editor
author Mike Pavone <pavone@retrodev.com>
date Thu, 22 Mar 2012 22:52:36 -0700
parents 6e4851a204a5
children 7400bb42e0c9
comparison
equal deleted inserted replaced
13:e69f5ab0a453 14:85fb6ba15bc6
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 get <- foreign: :url onSuccess onFail onOther {}
9 9
10 //tabletprog JS helpers 10 //JS interop helpers
11 setP <- foreign: :object property val {} 11 setP <- foreign: :object property val {}
12 getP <- foreign: :object property {} 12 getP <- foreign: :object property {}
13
14 //TP Parser
15 parser <- foreign: #{
16 parse <- foreign: :str {}
17 }
13 18
14 //js builtins 19 //js builtins
15 console <- foreign: #{ 20 console <- foreign: #{
16 log <- foreign: #{} 21 log <- foreign: #{}
17 } 22 }
22 el setP: "onclick" :event { 27 el setP: "onclick" :event {
23 console log: "click" 28 console log: "click"
24 link <- foreign: this 29 link <- foreign: this
25 get: (link getP: "href") :request { 30 get: (link getP: "href") :request {
26 addClass: (q: "body") "editorMode" 31 addClass: (q: "body") "editorMode"
27 console log: (request getP: "responseText") 32 src <- request getP: "responseText"
28 (q: "#src") setP: "textContent" (request getP: "responseText") 33 console log: src
34 ast <- parser parse: src
35 console log: ast
36 ast toHTML: (q: "#src")
37 //(q: "#src") setP: "textContent" (request getP: "responseText")
29 } 38 }
30 console log: "returning false"
31 foreign: false 39 foreign: false
32 } 40 }
33 } 41 }
34 42
35 //bind handlers for editor buttons 43 //bind handlers for editor buttons