-
Notifications
You must be signed in to change notification settings - Fork 0
/
mathematica-keyevents.tr
executable file
·170 lines (159 loc) · 10 KB
/
mathematica-keyevents.tr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
@@resource KeyEventTranslations
(* Modifiers can be "Shift", "Control", "Command", "Option"
For X11: Command = Alt (Mod1); Option = Mod2
*)
EventTranslations[{
(* Evaluation *)
Item[KeyEvent["Enter"], "EvaluateCells"],
Item[KeyEvent["KP_Enter"], "EvaluateCells"],
Item[KeyEvent["Return", Modifiers -> {Shift}], "HandleShiftReturn"],
Item[KeyEvent["KP_Enter", Modifiers -> {Shift}], "EvaluateNextCell"],
Item[KeyEvent["Enter", Modifiers -> {Shift}], "EvaluateNextCell"],
Item[KeyEvent["Return", Modifiers -> {Shift, Control}], Evaluate[All]],
Item[KeyEvent["Return", Modifiers -> {Command}], "SimilarCellBelow"],
Item[KeyEvent[",", Modifiers->{Command}], FrontEnd`EvaluatorInterrupt[Automatic]],
Item[KeyEvent["Escape"], "ShortNameDelimiter"],
(* Cursor control *)
Item[KeyEvent["Up"], "MovePreviousLine"],
Item[KeyEvent["KP_Up"], "MovePreviousLine"],
Item[KeyEvent["Down"], "MoveNextLine"],
Item[KeyEvent["n", Modifiers -> {Control}], "MoveNextLine"],
Item[KeyEvent["t", Modifiers -> {Control}], "MovePreviousLine"],
Item[KeyEvent["KP_Down"], "MoveNextLine"],
Item[KeyEvent["Left"], "MovePrevious"],
Item[KeyEvent["b", Modifiers -> {Control}], "MovePrevious"],
Item[KeyEvent["f", Modifiers -> {Control}], "MoveNext"],
Item[KeyEvent["b", Modifiers -> {Command}], "MovePreviousWord"],
Item[KeyEvent["f", Modifiers -> {Command}], "MoveNextWord"],
Item[KeyEvent["KP_Left"], "MovePrevious"],
Item[KeyEvent["Right"], "MoveNext"],
Item[KeyEvent["KP_Right"], "MoveNext"],
Item[KeyEvent["Right", Modifiers -> {Control}], "MoveNextWord"],
Item[KeyEvent["Left", Modifiers -> {Control}], "MovePreviousWord"],
Item[KeyEvent["End"], "MoveLineEnd"],
Item[KeyEvent["e", Modifiers -> {Control}], "MoveLineEnd"],
Item[KeyEvent["KP_End"], "MoveLineEnd"],
Item[KeyEvent["Home"], "MoveLineBeginning"],
Item[KeyEvent["a", Modifiers -> {Control}], "MoveLineBeginning"],
Item[KeyEvent["KP_Home"], "MoveLineBeginning"],
(* Selection *)
Item[KeyEvent["Right", Modifiers -> {Shift}], "SelectNext"],
Item[KeyEvent["Left", Modifiers -> {Shift}], "SelectPrevious"],
Item[KeyEvent["Right", Modifiers -> {Control, Shift}], "SelectNextWord"],
Item[KeyEvent["Left", Modifiers -> {Control, Shift}], "SelectPreviousWord"],
Item[KeyEvent["Down", Modifiers -> {Shift}], "SelectNextLine"],
Item[KeyEvent["Up", Modifiers -> {Shift}], "SelectPreviousLine"],
Item[KeyEvent["Home", Modifiers -> {Shift}], "SelectLineBeginning"],
Item[KeyEvent["End", Modifiers -> {Shift}], "SelectLineEnd"],
Item[KeyEvent[".", Modifiers -> {Control}], "ExpandSelection"],
Item[KeyEvent["KP_Decimal", Modifiers -> {Control}], "ExpandSelection"],
(* Notebook window control *)
Item[KeyEvent["Up", Modifiers -> {Control}], "ScrollLineUp"],
Item[KeyEvent["Down", Modifiers -> {Control}], "ScrollLineDown"],
Item[KeyEvent["Page_Up"], "ScrollPageUp"],
Item[KeyEvent["KP_Page_Up"], "ScrollPageUp"],
Item[KeyEvent["Page_Down"], "ScrollPageDown"],
Item[KeyEvent["KP_Page_Down"], "ScrollPageDown"],
Item[KeyEvent["Prior"], "ScrollPageUp"],
Item[KeyEvent["Next"], "ScrollPageDown"],
Item[KeyEvent["Home", Modifiers -> {Control}],
FrontEndExecute[{
FrontEnd`SelectionMove[FrontEnd`InputNotebook[], Before, Notebook],
FrontEnd`FrontEndToken[FrontEnd`InputNotebook[], "ScrollNotebookStart"]
}]],
Item[KeyEvent["End", Modifiers -> {Control}],
FrontEndExecute[{
FrontEnd`SelectionMove[FrontEnd`InputNotebook[], After, Notebook],
FrontEnd`FrontEndToken[FrontEnd`InputNotebook[], "ScrollNotebookEnd"]
}]],
Item[KeyEvent["w", Modifiers -> {Control}], "Close"],
Item[KeyEvent["Left", Modifiers->{Command}], "HyperlinkGoBack"],
Item[KeyEvent["Right", Modifiers->{Command}], "HyperlinkGoForward"],
(* Input *)
Item[KeyEvent["Return"], "Linebreak"],
Item[KeyEvent["Tab"], "Tab"],
Item[KeyEvent["Backspace"], "DeletePrevious"],
Item[KeyEvent["h", Modifiers->{Control}], "DeletePrevious"],
Item[KeyEvent["Delete"], "DeleteNext"],
Item[KeyEvent["d", Modifiers->{Control}], "DeleteNext"],
Item[KeyEvent["KP_Delete"], "DeleteNext"],
Item[KeyEvent["Backspace", Modifiers->{Control}], "DeletePreviousWord"],
Item[KeyEvent["h", Modifiers->{Command}], "DeletePreviousWord"],
Item[KeyEvent["Delete", Modifiers->{Control}], "DeleteNextWord"],
(* Typesetting input *)
Item[KeyEvent["6", Modifiers -> {Control}], "Superscript"],
Item[KeyEvent["KP_6", Modifiers -> {Control}], "Superscript"],
Item[KeyEvent["^", Modifiers -> {Control}], "Superscript"],
Item[KeyEvent["-", Modifiers -> {Control}], "Subscript"],
Item[KeyEvent["KP_Subtract", Modifiers -> {Control}], "Subscript"],
Item[KeyEvent["_", Modifiers ->{Control}], "Subscript"],
Item[KeyEvent["/", Modifiers -> {Control}], "Fraction"],
Item[KeyEvent["KP_Divide", Modifiers -> {Control}], "Fraction"],
Item[KeyEvent["2", Modifiers -> {Control}], "Radical"],
Item[KeyEvent["KP_2", Modifiers -> {Control}], "Radical"],
Item[KeyEvent["@", Modifiers -> {Control}], "Radical"],
Item[KeyEvent["7", Modifiers -> {Control}], "Above"],
Item[KeyEvent["&", Modifiers -> {Control}], "Above"],
Item[KeyEvent["KP_7", Modifiers -> {Control}], "Above"],
Item[KeyEvent["$", Modifiers -> {Control}], "Below"],
Item[KeyEvent["4", Modifiers -> {Control}], "Below"],
Item[KeyEvent["KP_4", Modifiers -> {Control}], "Below"],
Item[KeyEvent[",", Modifiers -> {Control}], "NewColumn"],
Item[KeyEvent["Return", Modifiers -> {Control}], "NewRow"],
Item[KeyEvent["9", Modifiers -> {Control}], "CreateInlineCell"],
Item[KeyEvent["(", Modifiers -> {Control}], "CreateInlineCell"],
Item[KeyEvent["KP_9", Modifiers -> {Control}], "CreateInlineCell"],
Item[KeyEvent[")", Modifiers -> {Control}], "MoveNextCell"],
Item[KeyEvent["0", Modifiers -> {Control}], "MoveNextCell"],
Item[KeyEvent["KP_0", Modifiers -> {Control}], "MoveNextCell"],
Item[KeyEvent["5", Modifiers -> {Control}, CellClass -> BoxFormData], "Otherscript"],
Item[KeyEvent["KP_5", Modifiers -> {Control}, CellClass -> BoxFormData], "Otherscript"],
Item[KeyEvent["%", Modifiers -> {Control}, CellClass -> BoxFormData], "Otherscript"],
Item[KeyEvent["Left", Modifiers->{Command}, CellClass -> BoxFormData], "NudgeLeft"],
Item[KeyEvent["Right", Modifiers->{Command}, CellClass -> BoxFormData], "NudgeRight"],
Item[KeyEvent["Page_Up", Modifiers-> {Control}, CellClass -> BoxFormData], "PreviousFunctionTemplate"],
Item[KeyEvent["Page_Down", Modifiers-> {Control}, CellClass -> BoxFormData], "NextFunctionTemplate"],
(* Typesetting motion commands *)
Item[KeyEvent[" ", Modifiers -> {Control}], "MoveExpressionEnd"],
Item[KeyEvent["Tab", Modifiers -> {Shift}], "MovePreviousPlaceHolder"],
Item[KeyEvent["Tab", Modifiers -> {Control}, CellClass -> BoxFormData], "MoveNextExpression"],
Item[KeyEvent["Tab", Modifiers -> {Control, Shift}, CellClass -> BoxFormData], "MovePreviousExpression"],
(* Drawing tool commands *)
Item[KeyEvent["o", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["Select"]]],
(* Reassigned to Rectangle in v8; I doubt anyone knows "r" does anything. Double-click is easier. *)
(* Item[KeyEvent["r", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["Reshape"]]],*)
Item[KeyEvent["p", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawPoint"]]],
Item[KeyEvent["c", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawCircle"]]],
Item[KeyEvent["d", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawDisk"]]],
Item[KeyEvent["f", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawFreehand"]]],
Item[KeyEvent["a", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawArrow"]]],
Item[KeyEvent["l", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawLine"]]],
Item[KeyEvent["b", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawBox"]]],
(* "q" for Rectangle deprecated in v8 but preserved for "backward compatibilty" for one version *)
Item[KeyEvent["q", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawRectangle"]]],
Item[KeyEvent["r", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawRectangle"]]],
Item[KeyEvent["s", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawPolyline"]]],
Item[KeyEvent["g", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["DrawPolygon"]]],
Item[KeyEvent["t", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["PlaceText"]]],
Item[KeyEvent["m", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["PlaceMath"]]],
Item[KeyEvent["i", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["SampleColor"]]],
Item[KeyEvent[".", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["GetCoordinates"]]],
Item[KeyEvent["e", CellClass->BoxFormData, BoxClass->GraphEdit2D], FrontEndExecute[Select2DTool["SampleStyle"]]],
Item[KeyEvent["o", CellClass->BoxFormData, BoxClass->GraphEdit3D], FrontEndExecute[Select3DTool["Select"]]],
Item[KeyEvent["i", CellClass->BoxFormData, BoxClass->GraphEdit3D], FrontEndExecute[Select3DTool["SampleColor"]]],
Item[KeyEvent["v", CellClass->BoxFormData, BoxClass->GraphEdit3D], FrontEndExecute[Select3DTool["AdjustView"]]],
Item[KeyEvent["m", CellClass->BoxFormData, BoxClass->GraphEdit3D], FrontEndExecute[Select3DTool["AdjustLights"]]],
(* Miscellaneous menu commands *)
Item[KeyEvent["Cut"], "Cut"],
Item[KeyEvent["Copy"], "Copy"],
Item[KeyEvent["Paste"], Paste[After]],
Item[KeyEvent["Undo"], "Undo"],
Item[KeyEvent["Redo"], "Redo"],
Item[KeyEvent["y", Modifiers -> {Control}], "Redo"],
Item[KeyEvent["Help"], "SelectionHelpDialog"],
Item[KeyEvent["Insert", Modifiers -> {Shift}], Paste[After]],
Item[KeyEvent["Insert", Modifiers -> {Control}], "Copy"],
Item[KeyEvent["Delete", Modifiers -> {Shift}], "Cut"],
Item[KeyEvent["F1", Modifiers->{Shift}], SelectionHelpDialog[False]],
Item[KeyEvent["F2"], FrontEnd`CompleteSelection[True]]
}]