Mercurial > repos > tabletprog

annotate editor.tp @ 21:6c8ae6b47ab5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small improvements to property support and elimination of setP and getP functions as they are no longer needed
author Mike Pavone <pavone@retrodev.com>
date Sun, 25 Mar 2012 21:11:10 -0700
parents 4dd99fde5f63
children 068d63627b16
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
1 #{
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
2 //mquery functions
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
3 q <- foreign: :query {}
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
4 qall <- foreign: :query {}
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
5 each <- foreign: :iterable fun {}
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
6 addClass <- foreign: :node className {}
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7 removeClass <- foreign: :node className {}
12
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
8 get <- foreign: :url onSuccess onFail onOther {}
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
9
14
85fb6ba15bc6 Start turning AST into HTML in editor
Mike Pavone <pavone@retrodev.com>
parents: 12
diff changeset
10 //TP Parser
85fb6ba15bc6 Start turning AST into HTML in editor
Mike Pavone <pavone@retrodev.com>
parents: 12
diff changeset
11 parser <- foreign: #{
85fb6ba15bc6 Start turning AST into HTML in editor
Mike Pavone <pavone@retrodev.com>
parents: 12
diff changeset
12 parse <- foreign: :str {}
85fb6ba15bc6 Start turning AST into HTML in editor
Mike Pavone <pavone@retrodev.com>
parents: 12
diff changeset
13 }
85fb6ba15bc6 Start turning AST into HTML in editor
Mike Pavone <pavone@retrodev.com>
parents: 12
diff changeset
14
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
15 //js builtins
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
16 console <- foreign: #{
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
17 log <- foreign: #{}
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
18 }
17
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
19 window <- #{}
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
20
17
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
21 //kernel definitions
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
22 true <- #{
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
23 if:else <- :self trueblock :elseblock {
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
24 trueblock:
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
25 }
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
26 }
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
27
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
28 false <- #{
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
29 if:else <- :self trueblock :elseblock {
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
30 elseblock:
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
31 }
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
32 }
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
33
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
34 editFile <- :path {
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
35 get: path :request {
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
36 addClass: (q: "body") "editorMode"
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
37 src <- request responseText
17
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
38 console log: src
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
39 ast <- parser parse: src
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
40 console log: ast
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
41 ast toHTML: (q: "#src")
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
42 }
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
43 }
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
44
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
45 //editor code
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
46 main <- {
12
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
47 //bind handlers for file browser links
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
48 each: (qall: "a") :idx el {
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
49 el onclick!: :event {
12
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
50 link <- foreign: this
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
51 path <- link href
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
52 path <- path substr: (path indexOf: "/edit/") + 5
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
53 console log: path
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
54 editFile: path
12
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
55 foreign: false
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
56 }
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
57 }
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
58
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
59 //bind handlers for editor buttons
6e4851a204a5 Add ability to load code into editor
Mike Pavone <pavone@retrodev.com>
parents: 11
diff changeset
60 each: (qall: ".controls li") :idx el {
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
61 el onclick!: :event {
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
62 srcel <- (q: "#src")
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
63 srcel textContent!: (srcel textContent) + (el textContent)
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
64 }
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
65 }
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
66 (q: "#ops_button") onclick!: :event {
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
67 addClass: (q: ".controls") "showops"
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
68 }
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
69
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
70 (q: "#builtin_button") onclick!: :event {
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
71 removeClass: (q: ".controls") "showops"
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
72 }
17
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
73
21
6c8ae6b47ab5 Small improvements to property support and elimination of setP and getP functions as they are no longer needed
Mike Pavone <pavone@retrodev.com>
parents: 18
diff changeset
74 path <- (window location) pathname
17
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
75 if: (path indexOf: "/edit/") = 0 {
7400bb42e0c9 Add direct file edit link support
Mike Pavone <pavone@retrodev.com>
parents: 14
diff changeset
76 editFile: (path substr: 5)
18
4dd99fde5f63 Tiny bit of cleanup
Mike Pavone <pavone@retrodev.com>
parents: 17
diff changeset
77 } else: {}
11
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
78 }
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
79
5447cff52da6 Use tabletproglang in editor
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
80 }