Mercurial > repos > tabletprog

comparison editor.tp @ 18:4dd99fde5f63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tiny bit of cleanup
author Mike Pavone <pavone@retrodev.com>
date Sun, 25 Mar 2012 15:57:26 -0700
parents 7400bb42e0c9
children 6c8ae6b47ab5
comparison
equal deleted inserted replaced
17:7400bb42e0c9 18:4dd99fde5f63
41 src <- request getP: "responseText" 41 src <- request getP: "responseText"
42 console log: src 42 console log: src
43 ast <- parser parse: src 43 ast <- parser parse: src
44 console log: ast 44 console log: ast
45 ast toHTML: (q: "#src") 45 ast toHTML: (q: "#src")
46 //(q: "#src") setP: "textContent" (request getP: "responseText")
47 } 46 }
48 } 47 }
49 48
50 //editor code 49 //editor code
51 main <- { 50 main <- {
52 //bind handlers for file browser links 51 //bind handlers for file browser links
53 each: (qall: "a") :idx el { 52 each: (qall: "a") :idx el {
54 el setP: "onclick" :event { 53 el setP: "onclick" :event {
55 console log: "click"
56 link <- foreign: this 54 link <- foreign: this
57 editFile: (link getP: "href") 55 editFile: (link getP: "href")
58 foreign: false 56 foreign: false
59 } 57 }
60 } 58 }
75 } 73 }
76 74
77 path <- (window getP: "location") getP: "pathname" 75 path <- (window getP: "location") getP: "pathname"
78 if: (path indexOf: "/edit/") = 0 { 76 if: (path indexOf: "/edit/") = 0 {
79 editFile: (path substr: 5) 77 editFile: (path substr: 5)
80 } else: { 78 } else: {}
81 console log: "not edit page"
82 }
83 } 79 }
84 80
85 } 81 }