# HG changeset patch # User Mike Pavone # Date 1332714670 25200 # Node ID 7400bb42e0c98b03c1afb8173f70b4f4ca50bc99 # Parent 59e83296e33131390b764cabc5edb754f202961a Add direct file edit link support diff -r 59e83296e331 -r 7400bb42e0c9 editor.tp --- a/editor.tp Sun Mar 25 14:25:33 2012 -0700 +++ b/editor.tp Sun Mar 25 15:31:10 2012 -0700 @@ -20,22 +20,41 @@ console <- foreign: #{ log <- foreign: #{} } +window <- #{} +//kernel definitions +true <- #{ + if:else <- :self trueblock :elseblock { + trueblock: + } +} + +false <- #{ + if:else <- :self trueblock :elseblock { + elseblock: + } +} + +editFile <- :path { + get: path :request { + addClass: (q: "body") "editorMode" + 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") + } +} + +//editor code main <- { //bind handlers for file browser links each: (qall: "a") :idx el { el setP: "onclick" :event { console log: "click" link <- foreign: this - get: (link getP: "href") :request { - addClass: (q: "body") "editorMode" - 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") - } + editFile: (link getP: "href") foreign: false } } @@ -54,6 +73,13 @@ (q: "#builtin_button") setP: "onclick" :event { removeClass: (q: ".controls") "showops" } + + path <- (window getP: "location") getP: "pathname" + if: (path indexOf: "/edit/") = 0 { + editFile: (path substr: 5) + } else: { + console log: "not edit page" + } } } diff -r 59e83296e331 -r 7400bb42e0c9 index.html --- a/index.html Sun Mar 25 14:25:33 2012 -0700 +++ b/index.html Sun Mar 25 15:31:10 2012 -0700 @@ -2,22 +2,22 @@ Awesome! - - - - - - - - - - + + + + + + + + + +