annotate .cms/lib/codemirror/keymap/emacs.js @ 1:1d486627aa1e draft default tip

24.10
author Coffee CMS <info@coffee-cms.ru>
date Sat, 12 Oct 2024 02:51:39 +0000
parents 78edf6b517a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
1 // CodeMirror, copyright (c) by Marijn Haverbeke and others
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
2 // Distributed under an MIT license: https://codemirror.net/5/LICENSE
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
3
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
4 (function(mod) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
5 if (typeof exports == "object" && typeof module == "object") // CommonJS
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
6 mod(require("../lib/codemirror"));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
7 else if (typeof define == "function" && define.amd) // AMD
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
8 define(["../lib/codemirror"], mod);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
9 else // Plain browser env
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
10 mod(CodeMirror);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
11 })(function(CodeMirror) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
12 "use strict";
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
13
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
14 var cmds = CodeMirror.commands;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
15 var Pos = CodeMirror.Pos;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
16 function posEq(a, b) { return a.line == b.line && a.ch == b.ch; }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
17
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
18 // Kill 'ring'
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
19
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
20 var killRing = [];
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
21 function addToRing(str) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
22 killRing.push(str);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
23 if (killRing.length > 50) killRing.shift();
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
24 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
25 function growRingTop(str) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
26 if (!killRing.length) return addToRing(str);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
27 killRing[killRing.length - 1] += str;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
28 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
29 function getFromRing(n) { return killRing[killRing.length - (n ? Math.min(n, 1) : 1)] || ""; }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
30 function popFromRing() { if (killRing.length > 1) killRing.pop(); return getFromRing(); }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
31
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
32 var lastKill = null;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
33
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
34 // Internal generic kill function, used by several mapped kill "family" functions.
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
35 function _kill(cm, from, to, ring, text) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
36 if (text == null) text = cm.getRange(from, to);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
37
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
38 if (ring == "grow" && lastKill && lastKill.cm == cm && posEq(from, lastKill.pos) && cm.isClean(lastKill.gen))
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
39 growRingTop(text);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
40 else if (ring !== false)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
41 addToRing(text);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
42 cm.replaceRange("", from, to, "+delete");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
43
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
44 if (ring == "grow") lastKill = {cm: cm, pos: from, gen: cm.changeGeneration()};
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
45 else lastKill = null;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
46 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
47
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
48 // Boundaries of various units
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
49
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
50 function byChar(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
51 return cm.findPosH(pos, dir, "char", true);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
52 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
53
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
54 function byWord(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
55 return cm.findPosH(pos, dir, "word", true);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
56 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
57
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
58 function byLine(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
59 return cm.findPosV(pos, dir, "line", cm.doc.sel.goalColumn);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
60 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
61
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
62 function byPage(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
63 return cm.findPosV(pos, dir, "page", cm.doc.sel.goalColumn);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
64 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
65
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
66 function byParagraph(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
67 var no = pos.line, line = cm.getLine(no);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
68 var sawText = /\S/.test(dir < 0 ? line.slice(0, pos.ch) : line.slice(pos.ch));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
69 var fst = cm.firstLine(), lst = cm.lastLine();
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
70 for (;;) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
71 no += dir;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
72 if (no < fst || no > lst)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
73 return cm.clipPos(Pos(no - dir, dir < 0 ? 0 : null));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
74 line = cm.getLine(no);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
75 var hasText = /\S/.test(line);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
76 if (hasText) sawText = true;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
77 else if (sawText) return Pos(no, 0);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
78 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
79 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
80
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
81 function bySentence(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
82 var line = pos.line, ch = pos.ch;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
83 var text = cm.getLine(pos.line), sawWord = false;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
84 for (;;) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
85 var next = text.charAt(ch + (dir < 0 ? -1 : 0));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
86 if (!next) { // End/beginning of line reached
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
87 if (line == (dir < 0 ? cm.firstLine() : cm.lastLine())) return Pos(line, ch);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
88 text = cm.getLine(line + dir);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
89 if (!/\S/.test(text)) return Pos(line, ch);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
90 line += dir;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
91 ch = dir < 0 ? text.length : 0;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
92 continue;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
93 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
94 if (sawWord && /[!?.]/.test(next)) return Pos(line, ch + (dir > 0 ? 1 : 0));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
95 if (!sawWord) sawWord = /\w/.test(next);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
96 ch += dir;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
97 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
98 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
99
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
100 function byExpr(cm, pos, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
101 var wrap;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
102 if (cm.findMatchingBracket && (wrap = cm.findMatchingBracket(pos, {strict: true}))
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
103 && wrap.match && (wrap.forward ? 1 : -1) == dir)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
104 return dir > 0 ? Pos(wrap.to.line, wrap.to.ch + 1) : wrap.to;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
105
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
106 for (var first = true;; first = false) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
107 var token = cm.getTokenAt(pos);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
108 var after = Pos(pos.line, dir < 0 ? token.start : token.end);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
109 if (first && dir > 0 && token.end == pos.ch || !/\w/.test(token.string)) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
110 var newPos = cm.findPosH(after, dir, "char");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
111 if (posEq(after, newPos)) return pos;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
112 else pos = newPos;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
113 } else {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
114 return after;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
115 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
116 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
117 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
118
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
119 // Prefixes (only crudely supported)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
120
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
121 function getPrefix(cm, precise) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
122 var digits = cm.state.emacsPrefix;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
123 if (!digits) return precise ? null : 1;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
124 clearPrefix(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
125 return digits == "-" ? -1 : Number(digits);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
126 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
127
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
128 function repeated(cmd) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
129 var f = typeof cmd == "string" ? function(cm) { cm.execCommand(cmd); } : cmd;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
130 return function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
131 var prefix = getPrefix(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
132 f(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
133 for (var i = 1; i < prefix; ++i) f(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
134 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
135 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
136
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
137 function findEnd(cm, pos, by, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
138 var prefix = getPrefix(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
139 if (prefix < 0) { dir = -dir; prefix = -prefix; }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
140 for (var i = 0; i < prefix; ++i) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
141 var newPos = by(cm, pos, dir);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
142 if (posEq(newPos, pos)) break;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
143 pos = newPos;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
144 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
145 return pos;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
146 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
147
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
148 function move(by, dir) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
149 var f = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
150 cm.extendSelection(findEnd(cm, cm.getCursor(), by, dir));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
151 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
152 f.motion = true;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
153 return f;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
154 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
155
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
156 function killTo(cm, by, dir, ring) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
157 var selections = cm.listSelections(), cursor;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
158 var i = selections.length;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
159 while (i--) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
160 cursor = selections[i].head;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
161 _kill(cm, cursor, findEnd(cm, cursor, by, dir), ring);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
162 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
163 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
164
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
165 function _killRegion(cm, ring) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
166 if (cm.somethingSelected()) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
167 var selections = cm.listSelections(), selection;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
168 var i = selections.length;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
169 while (i--) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
170 selection = selections[i];
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
171 _kill(cm, selection.anchor, selection.head, ring);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
172 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
173 return true;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
174 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
175 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
176
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
177 function addPrefix(cm, digit) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
178 if (cm.state.emacsPrefix) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
179 if (digit != "-") cm.state.emacsPrefix += digit;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
180 return;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
181 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
182 // Not active yet
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
183 cm.state.emacsPrefix = digit;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
184 cm.on("keyHandled", maybeClearPrefix);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
185 cm.on("inputRead", maybeDuplicateInput);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
186 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
187
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
188 var prefixPreservingKeys = {"Alt-G": true, "Ctrl-X": true, "Ctrl-Q": true, "Ctrl-U": true};
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
189
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
190 function maybeClearPrefix(cm, arg) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
191 if (!cm.state.emacsPrefixMap && !prefixPreservingKeys.hasOwnProperty(arg))
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
192 clearPrefix(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
193 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
194
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
195 function clearPrefix(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
196 cm.state.emacsPrefix = null;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
197 cm.off("keyHandled", maybeClearPrefix);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
198 cm.off("inputRead", maybeDuplicateInput);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
199 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
200
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
201 function maybeDuplicateInput(cm, event) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
202 var dup = getPrefix(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
203 if (dup > 1 && event.origin == "+input") {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
204 var one = event.text.join("\n"), txt = "";
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
205 for (var i = 1; i < dup; ++i) txt += one;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
206 cm.replaceSelection(txt);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
207 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
208 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
209
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
210 function maybeRemovePrefixMap(cm, arg) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
211 if (typeof arg == "string" && (/^\d$/.test(arg) || arg == "Ctrl-U")) return;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
212 cm.removeKeyMap(prefixMap);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
213 cm.state.emacsPrefixMap = false;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
214 cm.off("keyHandled", maybeRemovePrefixMap);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
215 cm.off("inputRead", maybeRemovePrefixMap);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
216 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
217
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
218 // Utilities
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
219
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
220 cmds.setMark = function (cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
221 cm.setCursor(cm.getCursor());
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
222 cm.setExtending(!cm.getExtending());
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
223 cm.on("change", function() { cm.setExtending(false); });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
224 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
225
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
226 function clearMark(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
227 cm.setExtending(false);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
228 cm.setCursor(cm.getCursor());
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
229 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
230
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
231 function makePrompt(msg) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
232 var fragment = document.createDocumentFragment();
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
233 var input = document.createElement("input");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
234 input.setAttribute("type", "text");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
235 input.style.width = "10em";
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
236 fragment.appendChild(document.createTextNode(msg + ": "));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
237 fragment.appendChild(input);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
238 return fragment;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
239 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
240
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
241 function getInput(cm, msg, f) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
242 if (cm.openDialog)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
243 cm.openDialog(makePrompt(msg), f, {bottom: true});
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
244 else
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
245 f(prompt(msg, ""));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
246 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
247
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
248 function operateOnWord(cm, op) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
249 var start = cm.getCursor(), end = cm.findPosH(start, 1, "word");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
250 cm.replaceRange(op(cm.getRange(start, end)), start, end);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
251 cm.setCursor(end);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
252 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
253
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
254 function toEnclosingExpr(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
255 var pos = cm.getCursor(), line = pos.line, ch = pos.ch;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
256 var stack = [];
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
257 while (line >= cm.firstLine()) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
258 var text = cm.getLine(line);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
259 for (var i = ch == null ? text.length : ch; i > 0;) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
260 var ch = text.charAt(--i);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
261 if (ch == ")")
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
262 stack.push("(");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
263 else if (ch == "]")
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
264 stack.push("[");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
265 else if (ch == "}")
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
266 stack.push("{");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
267 else if (/[\(\{\[]/.test(ch) && (!stack.length || stack.pop() != ch))
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
268 return cm.extendSelection(Pos(line, i));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
269 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
270 --line; ch = null;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
271 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
272 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
273
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
274 // Commands. Names should match emacs function names (albeit in camelCase)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
275 // except where emacs function names collide with code mirror core commands.
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
276
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
277 cmds.killRegion = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
278 _kill(cm, cm.getCursor("start"), cm.getCursor("end"), true);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
279 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
280
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
281 // Maps to emacs kill-line
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
282 cmds.killLineEmacs = repeated(function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
283 var start = cm.getCursor(), end = cm.clipPos(Pos(start.line));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
284 var text = cm.getRange(start, end);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
285 if (!/\S/.test(text)) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
286 text += "\n";
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
287 end = Pos(start.line + 1, 0);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
288 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
289 _kill(cm, start, end, "grow", text);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
290 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
291
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
292 cmds.killRingSave = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
293 addToRing(cm.getSelection());
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
294 clearMark(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
295 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
296
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
297 cmds.yank = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
298 var start = cm.getCursor();
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
299 cm.replaceRange(getFromRing(getPrefix(cm)), start, start, "paste");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
300 cm.setSelection(start, cm.getCursor());
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
301 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
302
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
303 cmds.yankPop = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
304 cm.replaceSelection(popFromRing(), "around", "paste");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
305 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
306
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
307 cmds.forwardChar = move(byChar, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
308
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
309 cmds.backwardChar = move(byChar, -1)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
310
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
311 cmds.deleteChar = function(cm) { killTo(cm, byChar, 1, false); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
312
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
313 cmds.deleteForwardChar = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
314 _killRegion(cm, false) || killTo(cm, byChar, 1, false);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
315 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
316
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
317 cmds.deleteBackwardChar = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
318 _killRegion(cm, false) || killTo(cm, byChar, -1, false);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
319 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
320
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
321 cmds.forwardWord = move(byWord, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
322
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
323 cmds.backwardWord = move(byWord, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
324
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
325 cmds.killWord = function(cm) { killTo(cm, byWord, 1, "grow"); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
326
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
327 cmds.backwardKillWord = function(cm) { killTo(cm, byWord, -1, "grow"); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
328
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
329 cmds.nextLine = move(byLine, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
330
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
331 cmds.previousLine = move(byLine, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
332
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
333 cmds.scrollDownCommand = move(byPage, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
334
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
335 cmds.scrollUpCommand = move(byPage, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
336
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
337 cmds.backwardParagraph = move(byParagraph, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
338
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
339 cmds.forwardParagraph = move(byParagraph, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
340
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
341 cmds.backwardSentence = move(bySentence, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
342
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
343 cmds.forwardSentence = move(bySentence, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
344
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
345 cmds.killSentence = function(cm) { killTo(cm, bySentence, 1, "grow"); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
346
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
347 cmds.backwardKillSentence = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
348 _kill(cm, cm.getCursor(), bySentence(cm, cm.getCursor(), 1), "grow");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
349 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
350
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
351 cmds.killSexp = function(cm) { killTo(cm, byExpr, 1, "grow"); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
352
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
353 cmds.backwardKillSexp = function(cm) { killTo(cm, byExpr, -1, "grow"); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
354
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
355 cmds.forwardSexp = move(byExpr, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
356
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
357 cmds.backwardSexp = move(byExpr, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
358
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
359 cmds.markSexp = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
360 var cursor = cm.getCursor();
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
361 cm.setSelection(findEnd(cm, cursor, byExpr, 1), cursor);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
362 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
363
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
364 cmds.transposeSexps = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
365 var leftStart = byExpr(cm, cm.getCursor(), -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
366 var leftEnd = byExpr(cm, leftStart, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
367 var rightEnd = byExpr(cm, leftEnd, 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
368 var rightStart = byExpr(cm, rightEnd, -1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
369 cm.replaceRange(cm.getRange(rightStart, rightEnd) +
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
370 cm.getRange(leftEnd, rightStart) +
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
371 cm.getRange(leftStart, leftEnd), leftStart, rightEnd);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
372 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
373
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
374 cmds.backwardUpList = repeated(toEnclosingExpr);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
375
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
376 cmds.justOneSpace = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
377 var pos = cm.getCursor(), from = pos.ch;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
378 var to = pos.ch, text = cm.getLine(pos.line);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
379 while (from && /\s/.test(text.charAt(from - 1))) --from;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
380 while (to < text.length && /\s/.test(text.charAt(to))) ++to;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
381 cm.replaceRange(" ", Pos(pos.line, from), Pos(pos.line, to));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
382 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
383
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
384 cmds.openLine = repeated(function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
385 cm.replaceSelection("\n", "start");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
386 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
387
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
388 // maps to emacs 'transpose-chars'
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
389 cmds.transposeCharsRepeatable = repeated(function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
390 cm.execCommand("transposeChars");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
391 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
392
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
393 cmds.capitalizeWord = repeated(function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
394 operateOnWord(cm, function(w) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
395 var letter = w.search(/\w/);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
396 if (letter == -1) return w;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
397 return w.slice(0, letter) + w.charAt(letter).toUpperCase() +
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
398 w.slice(letter + 1).toLowerCase();
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
399 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
400 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
401
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
402 cmds.upcaseWord = repeated(function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
403 operateOnWord(cm, function(w) { return w.toUpperCase(); });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
404 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
405
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
406 cmds.downcaseWord = repeated(function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
407 operateOnWord(cm, function(w) { return w.toLowerCase(); });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
408 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
409
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
410 // maps to emacs 'undo'
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
411 cmds.undoRepeatable = repeated("undo");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
412
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
413 cmds.keyboardQuit = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
414 cm.execCommand("clearSearch");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
415 clearMark(cm);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
416 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
417
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
418 cmds.newline = repeated(function(cm) { cm.replaceSelection("\n", "end"); });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
419
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
420 cmds.gotoLine = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
421 var prefix = getPrefix(cm, true);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
422 if (prefix != null && prefix > 0) return cm.setCursor(prefix - 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
423
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
424 getInput(cm, "Goto line", function(str) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
425 var num;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
426 if (str && !isNaN(num = Number(str)) && num == (num|0) && num > 0)
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
427 cm.setCursor(num - 1);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
428 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
429 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
430
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
431 cmds.indentRigidly = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
432 cm.indentSelection(getPrefix(cm, true) || cm.getOption("indentUnit"));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
433 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
434
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
435 cmds.exchangePointAndMark = function(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
436 cm.setSelection(cm.getCursor("head"), cm.getCursor("anchor"));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
437 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
438
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
439 cmds.quotedInsertTab = repeated("insertTab");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
440
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
441 cmds.universalArgument = function addPrefixMap(cm) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
442 cm.state.emacsPrefixMap = true;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
443 cm.addKeyMap(prefixMap);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
444 cm.on("keyHandled", maybeRemovePrefixMap);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
445 cm.on("inputRead", maybeRemovePrefixMap);
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
446 };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
447
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
448 CodeMirror.emacs = {kill: _kill, killRegion: _killRegion, repeated: repeated};
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
449
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
450 // Actual keymap
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
451 var keyMap = CodeMirror.keyMap.emacs = CodeMirror.normalizeKeyMap({
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
452 "Ctrl-W": "killRegion",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
453 "Ctrl-K": "killLineEmacs",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
454 "Alt-W": "killRingSave",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
455 "Ctrl-Y": "yank",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
456 "Alt-Y": "yankPop",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
457 "Ctrl-Space": "setMark",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
458 "Ctrl-Shift-2": "setMark",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
459 "Ctrl-F": "forwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
460 "Ctrl-B": "backwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
461 "Right": "forwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
462 "Left": "backwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
463 "Ctrl-D": "deleteChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
464 "Delete": "deleteForwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
465 "Ctrl-H": "deleteBackwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
466 "Backspace": "deleteBackwardChar",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
467 "Alt-F": "forwardWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
468 "Alt-B": "backwardWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
469 "Alt-Right": "forwardWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
470 "Alt-Left": "backwardWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
471 "Alt-D": "killWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
472 "Alt-Backspace": "backwardKillWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
473 "Ctrl-N": "nextLine",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
474 "Ctrl-P": "previousLine",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
475 "Down": "nextLine",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
476 "Up": "previousLine",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
477 "Ctrl-A": "goLineStart",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
478 "Ctrl-E": "goLineEnd",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
479 "End": "goLineEnd",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
480 "Home": "goLineStart",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
481 "Alt-V": "scrollDownCommand",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
482 "Ctrl-V": "scrollUpCommand",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
483 "PageUp": "scrollDownCommand",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
484 "PageDown": "scrollUpCommand",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
485 "Ctrl-Up": "backwardParagraph",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
486 "Ctrl-Down": "forwardParagraph",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
487 "Alt-{": "backwardParagraph",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
488 "Alt-}": "forwardParagraph",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
489 "Alt-A": "backwardSentence",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
490 "Alt-E": "forwardSentence",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
491 "Alt-K": "killSentence",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
492 "Ctrl-X Delete": "backwardKillSentence",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
493 "Ctrl-Alt-K": "killSexp",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
494 "Ctrl-Alt-Backspace": "backwardKillSexp",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
495 "Ctrl-Alt-F": "forwardSexp",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
496 "Ctrl-Alt-B": "backwardSexp",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
497 "Shift-Ctrl-Alt-2": "markSexp",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
498 "Ctrl-Alt-T": "transposeSexps",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
499 "Ctrl-Alt-U": "backwardUpList",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
500 "Alt-Space": "justOneSpace",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
501 "Ctrl-O": "openLine",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
502 "Ctrl-T": "transposeCharsRepeatable",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
503 "Alt-C": "capitalizeWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
504 "Alt-U": "upcaseWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
505 "Alt-L": "downcaseWord",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
506 "Alt-;": "toggleComment",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
507 "Ctrl-/": "undoRepeatable",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
508 "Shift-Ctrl--": "undoRepeatable",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
509 "Ctrl-Z": "undoRepeatable",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
510 "Cmd-Z": "undoRepeatable",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
511 "Ctrl-X U": "undoRepeatable",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
512 "Shift-Ctrl-Z": "redo",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
513 "Shift-Alt-,": "goDocStart",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
514 "Shift-Alt-.": "goDocEnd",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
515 "Ctrl-S": "findPersistentNext",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
516 "Ctrl-R": "findPersistentPrev",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
517 "Ctrl-G": "keyboardQuit",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
518 "Shift-Alt-5": "replace",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
519 "Alt-/": "autocomplete",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
520 "Enter": "newlineAndIndent",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
521 "Ctrl-J": "newline",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
522 "Tab": "indentAuto",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
523 "Alt-G G": "gotoLine",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
524 "Ctrl-X Tab": "indentRigidly",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
525 "Ctrl-X Ctrl-X": "exchangePointAndMark",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
526 "Ctrl-X Ctrl-S": "save",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
527 "Ctrl-X Ctrl-W": "save",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
528 "Ctrl-X S": "saveAll",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
529 "Ctrl-X F": "open",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
530 "Ctrl-X K": "close",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
531 "Ctrl-X H": "selectAll",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
532 "Ctrl-Q Tab": "quotedInsertTab",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
533 "Ctrl-U": "universalArgument",
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
534 "fallthrough": "default"
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
535 });
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
536
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
537 var prefixMap = {"Ctrl-G": clearPrefix};
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
538 function regPrefix(d) {
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
539 prefixMap[d] = function(cm) { addPrefix(cm, d); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
540 keyMap["Ctrl-" + d] = function(cm) { addPrefix(cm, d); };
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
541 prefixPreservingKeys["Ctrl-" + d] = true;
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
542 }
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
543 for (var i = 0; i < 10; ++i) regPrefix(String(i));
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
544 regPrefix("-");
Coffee CMS <info@coffee-cms.ru>
parents:
diff changeset
545 });