Mercurial > repos > tabletprog
comparison editor.tp @ 14:85fb6ba15bc6
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 |