Mercurial > repos > tabletprog

comparison src/editor.tp @ 108:5099c1a96e3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mostly fix clicking on the function name in a funcall expression
author Mike Pavone <pavone@retrodev.com>
date Sat, 13 Apr 2013 15:54:53 -0700
parents 152b6cfb98b6
children a647cdad620b
comparison
equal deleted inserted replaced
107:152b6cfb98b6 108:5099c1a96e3f
23 keys <- foreign: :object {} 23 keys <- foreign: :object {}
24 } 24 }
25 25
26 //kernel definitions 26 //kernel definitions
27 //import: kernel 27 //import: kernel
28
29 filter <- :arr pred {
30 output <- arr slice: 0 0
31 each: arr :idx el {
32 if: (pred: el) {
33 output push: el
34 } else: {}
35 }
36 output
37 }
28 38
29 //editor code 39 //editor code
30 editFile <- :path { 40 editFile <- :path {
31 get: path :request { 41 get: path :request {
32 addClass: (q: "body") "editorMode" 42 addClass: (q: "body") "editorMode"
86 96
87 funClick <- :domnode astnode event { 97 funClick <- :domnode astnode event {
88 selectParent: domnode 98 selectParent: domnode
89 selectQuery: ".selectParent > .funpart" in: (domnode parentNode) 99 selectQuery: ".selectParent > .funpart" in: (domnode parentNode)
90 symtable <- astnode symbols 100 symtable <- astnode symbols
91 syms <- filter: (symtable allSymbols) :sym { 101 syms <- filter: (symtable allSymbols: (foreign: undefined)) :sym {
92 isLambda: ((symtable find: sym) def) 102 isLambda: ((symtable find: sym) def)
93 } 103 }
94 popInscope: syms onClick: {} 104 popInscope: syms onClick: {}
95 event stopPropagation: (foreign: undefined) 105 event stopPropagation: (foreign: undefined)
96 } 106 }