Mercurial > repos > tabletprog
diff 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 |
line wrap: on
line diff
--- a/editor.tp Wed Mar 21 23:17:49 2012 -0700 +++ b/editor.tp Thu Mar 22 22:52:36 2012 -0700 @@ -7,10 +7,15 @@ removeClass <- foreign: :node className {} get <- foreign: :url onSuccess onFail onOther {} -//tabletprog JS helpers +//JS interop helpers setP <- foreign: :object property val {} getP <- foreign: :object property {} +//TP Parser +parser <- foreign: #{ + parse <- foreign: :str {} +} + //js builtins console <- foreign: #{ log <- foreign: #{} @@ -24,10 +29,13 @@ link <- foreign: this get: (link getP: "href") :request { addClass: (q: "body") "editorMode" - console log: (request getP: "responseText") - (q: "#src") setP: "textContent" (request getP: "responseText") + src <- request getP: "responseText" + console log: src + ast <- parser parse: src + console log: ast + ast toHTML: (q: "#src") + //(q: "#src") setP: "textContent" (request getP: "responseText") } - console log: "returning false" foreign: false } }