Mercurial > repos > tabletprog
comparison src/editor.tp @ 108:5099c1a96e3f
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 } |