jyapayne/ace
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

emacs: adding mark-ring

Browse source
This commit is contained in:
Robert Krahn 2013-05-26 18:55:38 -07:00
commit 1172f5cb3d
1 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/ace/keyboard/emacs.js
View file

@ -96,15 +96,31 @@ exports.handler.attach = function(editor) {
editor.session.$useEmacsStyleLineStart = true;
editor.session.$emacsMark = null;
editor.session.$emacsMarkRing = editor.session.$emacsMarkRing || [];
editor.emacsMarkMode = function() {
return this.session.$emacsMark;
}
editor.setEmacsMarkMode = function(p) {
var prevMark = this.session.$emacsMark;
if (prevMark)
this.session.$emacsMarkRing.push(prevMark);
this.session.$emacsMark = p;
}
editor.pushEmacsMark = function(p, activate) {
var prevMark = this.session.$emacsMark;
if (prevMark)
this.session.$emacsMarkRing.push(prevMark);
if (activate) this.session.$emacsMark = p;
else this.session.$emacsMarkRing.push(p);
}
editor.getLastEmacsMark = function(p) {
return this.session.$emacsMark || this.session.$emacsMarkRing.reverse()[0];
}
editor.on("click", $resetMarkMode);
editor.on("changeSession", $kbSessionChange);
editor.renderer.screenToTextCoordinates = screenToTextBlockCoordinates;
@ -141,6 +157,8 @@ var $kbSessionChange = function(e) {
if (!e.session.hasOwnProperty('$emacsMark'))
e.session.$emacsMark = null;
if (!e.session.hasOwnProperty('$emacsMarkRing'))
e.session.$emacsMarkRing = [];
}
var $resetMarkMode = function(e) {
@ -168,6 +186,10 @@ exports.handler.onCopy = function(e, editor) {
delete editor.$handlesEmacsOnCopy;
}
exports.handler.onPaste = function(e, editor) {
editor.pushEmacsMark(editor.getCursorPosition());
}
exports.handler.bindKey = function(key, command) {
if (!key)
return;