//> This file is part of Ymacs, an Emacs-like editor for the Web //> http://www.ymacs.org/ //> //> Copyright (c) 2009-2010, Mihai Bazon, Dynarch.com. All rights reserved. //> //> Redistribution and use in source and binary forms, with or without //> modification, are permitted provided that the following conditions are //> met: //> //> * Redistributions of source code must retain the above copyright //> notice, this list of conditions and the following disclaimer. //> //> * Redistributions in binary form must reproduce the above copyright //> notice, this list of conditions and the following disclaimer in //> the documentation and/or other materials provided with the //> distribution. //> //> * Neither the name of Dynarch.com nor the names of its contributors //> may be used to endorse or promote products derived from this //> software without specific prior written permission. //> //> THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER “AS IS” AND ANY //> EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE //> IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR //> PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE //> FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR //> CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF //> SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS //> INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN //> CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) //> ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF //> THE POSSIBILITY OF SUCH DAMAGE. // @require ymacs-buffer.js Ymacs_Buffer.newCommands({ forward_char: Ymacs_Interactive("p", function(x) { if (x == null) x = 1; return this.cmd("goto_char", this.point() + x); }), backward_char: Ymacs_Interactive("p", function(x) { if (x == null) x = 1; return this.cmd("forward_char", -x); }), forward_line: Ymacs_Interactive("p", function(x) { if (x == null) x = 1; var rc = this._rowcol; if (!/^(forward|backward)_line$/.test(this.previousCommand)) { this.setq("line_movement_requested_col", rc.col); } var ret = this.cmd("goto_char", this._rowColToPosition(rc.row + x, Math.max(rc.col, this.getq("line_movement_requested_col")))); // starting to look like Lisp, eh? if (!ret) this.setq("line_movement_requested_col", rc.col); return ret; }), backward_line: Ymacs_Interactive("p", function(x) { if (x == null) x = 1; return this.cmd("forward_line", -x); }), forward_whitespace: Ymacs_Interactive("P", function(noLine) { var re = noLine ? /[^\x20\t\xA0]/g : /[^\s]/g; if (this.cmd("search_forward_regexp", re)) { this.cmd("backward_char"); return true; } else if (!noLine) return this.cmd("end_of_buffer"); }), backward_whitespace: Ymacs_Interactive("P", function(noLine) { var re = noLine ? /[^\x20\t\xA0]/g : /[^\s]/g; if (this.cmd("search_backward_regexp", re)) { this.cmd("forward_char"); return true; } else if (!noLine) return this.cmd("beginning_of_buffer"); }), beginning_of_line: Ymacs_Interactive(function() { return this.cmd("goto_char", this._rowColToPosition(this._rowcol.row, 0)); }), back_to_indentation: Ymacs_Interactive(function() { var rc = this._rowcol, line = this.code[rc.row], m = /\S/.exec(line); if (m) return this.cmd("goto_char", this._rowColToPosition(rc.row, m.index)); }), beginning_of_indentation_or_line: Ymacs_Interactive(function() { return this.cmd("back_to_indentation") || this.cmd("beginning_of_line"); }), end_of_line: Ymacs_Interactive(function() { var rc = this._rowcol; return this.cmd("goto_char", this._rowColToPosition(rc.row, this.code[rc.row].length)); }), beginning_of_buffer: Ymacs_Interactive(function() { return this.cmd("goto_char", 0); }), end_of_buffer: Ymacs_Interactive(function() { return this.cmd("goto_char", this.getCodeSize()); }), eob_p: function() { return this.point() == this.getCodeSize(); }, bob_p: function() { return this.point() == 0; }, eol_p: function() { var rc = this._positionToRowCol(this.point()); return rc.col == this.code[rc.line].length; }, bol_p: function() { return this._positionToRowCol(this.point()).col == 0; }, backward_delete_char: Ymacs_Interactive("^p", function(n){ if (!this.deleteTransientRegion()) { if (n == null) n = 1; var pos = this.point(); if (pos > 0) this._deleteText(pos - n, pos); } }), delete_char: Ymacs_Interactive("^p", function(n){ if (!this.deleteTransientRegion()) { if (n == null) n = 1; var pos = this.point(); this._deleteText(pos, pos + n); } }), delete_whitespace: Ymacs_Interactive("^P", function(noLine) { if (!this.deleteTransientRegion()) { var p = this.point(); if (this.cmd("forward_whitespace", noLine)) { this._deleteText(p, this.point()); return true; } } }), backward_delete_whitespace: Ymacs_Interactive("^P", function(noLine) { if (!this.deleteTransientRegion()) { var p = this.point(); if (this.cmd("backward_whitespace", noLine)) { this._deleteText(this.point(), p); return true; } } }), delete_indentation: Ymacs_Interactive("P", function(nextLine) { if (nextLine) this.cmd("forward_line"); this.cmd("back_to_indentation"); this.cmd("backward_delete_whitespace"); this.cmd("insert", " "); }), universal_argument: Ymacs_Interactive("^", function(){ this.pushKeymap(Ymacs_Keymap_UniversalArgument()); if (!this.isMinibuffer) this.setMinibuffer("C-u"); }), overwrite_mode: Ymacs_Interactive(function() { this.resetOverwriteMode(); }), self_insert_command: Ymacs_Interactive("^p", function(repeat) { var ev = this.interactiveEvent(), ch = String.fromCharCode(ev.charCode), rc = this._rowcol; if (ev.charCode && ch && !ev.altKey && !ev.ctrlKey) { this.deleteTransientRegion(); if (repeat != null) ch = ch.x(repeat); if (this.overwriteMode) { var line = this.code[rc.row], left = line.length - rc.col; if (left > 0) this.cmd("delete_char", Math.min(left, repeat || 1)); } this.cmd("insert", ch); ev.domStop = true; return true; } return false; }), newline: Ymacs_Interactive("^p", function(n){ if (n == null) n = 1; this.deleteTransientRegion(); this.cmd("insert", "\n".x(n)); }), newline_and_indent: Ymacs_Interactive("^p", function(n){ if (n) { this.cmd("newline", n); } else { this.cmd("backward_delete_whitespace", true); this.cmd("newline"); this.cmd("indent_line"); } }), indent_line: Ymacs_Interactive("P", function(noEmpty) { if (this.tokenizer) { var indent = this.tokenizer.getIndentation(this._rowcol.row, this); if (indent != null) { if (!noEmpty || /\S/.test(this.getLine())) { var pos = this.cmd("save_excursion", function(){ this.cmd("back_to_indentation"); if (this._rowcol.col != indent) { this.cmd("beginning_of_line"); this.cmd("delete_whitespace", true); this.cmd("insert", " ".x(indent)); } return this.point(); }); // when point is before the indentation, go there. if (this.point() < pos) this.cmd("goto_char", pos); } return; } } this.cmd("insert", " ".x(this.getq("indent_line"))); }), indent_region: Ymacs_Interactive("r", function(begin, end) { if (end < begin) { var tmp = begin; begin = end; end = tmp; } this.cmd("save_excursion", function() { var m = this.createMarker(end); this.cmd("goto_char", begin); while (this.point() < m.getPosition()) { this.cmd("indent_line", true); this.cmd("beginning_of_line"); if (!this.cmd("forward_line")) break; }; m.destroy(); }); }), make_marker: function(pos) { return this.createMarker(pos); }, looking_at: function(rx) { var pos = rx.lastIndex = this.point(); var ret = this.matchData = rx.exec(this.getCode()); if (ret) ret.after = rx.lastIndex; return ret && ret.index == pos; }, looking_back: function(rx) { var m = this.lastIndexOfRegexp(this.getCode(), rx, this.point()); return m && m.after == this.point(); }, search_forward: Ymacs_Interactive("sSearch: ", function(str, bound) { var code = this.getCode(), point = this.point(); if (this.getq("case_fold_search")) { code = code.toLowerCase(); str = str.toLowerCase(); } var pos = code.indexOf(str, point); if (pos >= 0 && (bound == null || pos <= bound)) { this.cmd("goto_char", pos + str.length); return true; } }), search_backward: Ymacs_Interactive("sSearch backward: ", function(str, bound) { var code = this.getCode(), point = this.point(); if (this.getq("case_fold_search")) { code = code.toLowerCase(); str = str.toLowerCase(); } var pos = code.lastIndexOf(str, point); if (pos == point) pos = code.lastIndexOf(str, point - 1); if (pos >= 0 && pos != point && (bound == null || pos >= bound)) { this.cmd("goto_char", pos); return true; } }), make_regexp: function(rx) { if (!(rx instanceof RegExp)) { var matchCase = rx.toLowerCase() != rx.toUpperCase(); try { rx = new RegExp(rx, matchCase ? "ig" : "g"); } catch(ex) { throw new Ymacs_Exception("Invalid regexp"); } } return rx; }, search_forward_regexp: Ymacs_Interactive("sRegExp search: ", function(rx) { rx = this.cmd("make_regexp", rx); var code = this.getCode(), pos = rx.lastIndex = this.point(), ret = this.matchData = rx.exec(code); if (ret && rx.lastIndex != pos) { ret.after = rx.lastIndex; this.cmd("goto_char", rx.lastIndex); return true; } }), search_backward_regexp: Ymacs_Interactive("sBackward RegExp search: ", function(rx) { rx = this.cmd("make_regexp", rx); var m = this.lastIndexOfRegexp(this.getCode(), rx, this.point()); if (m && m.index != this.point()) { this.cmd("goto_char", m.index); return true; } }), forward_word: Ymacs_Interactive_X(function(){ var word = this.getq("syntax_word"), end = false; while (!end && !word.test(this.charAt())) if (!this.cmd("forward_char")) end = true; while (!end && word.test(this.charAt())) if (!this.cmd("forward_char")) end = true; }), backward_word: Ymacs_Interactive_X(function(){ var word = this.getq("syntax_word"), end = false; while (!end && !word.test(this.charAt(-1))) if (!this.cmd("backward_char")) end = true; while (!end && word.test(this.charAt(-1))) if (!this.cmd("backward_char")) end = true; }), forward_paragraph: Ymacs_Interactive_X(function(){ this.cmd("forward_whitespace"); if (this.cmd("search_forward_regexp", this.getq("syntax_paragraph_sep"))) this.cmd("goto_char", this.cmd("match_beginning") + 1); else this.cmd("end_of_buffer"); }), backward_paragraph: Ymacs_Interactive_X(function(){ this.cmd("backward_whitespace"); if (this.cmd("search_backward_regexp", this.getq("syntax_paragraph_sep"))) this.cmd("goto_char", this.cmd("match_end") - 1); else this.cmd("beginning_of_buffer"); }), transpose_words: Ymacs_Interactive_X(function() { // if we're in the middle of a word, some // weird things happen; better skip it, just // like Emacs does. this.cmd("backward_char"); if (this.getq("syntax_word").test(this.charAt())) this.cmd("forward_word"); var a = []; this.cmd("forward_word"); a.push(this.point()); this.cmd("backward_word"); a.push(this.point()); this.cmd("backward_word"); a.push(this.point()); this.cmd("forward_word"); a.push(this.point()); this.cmd("goto_char", this._swapAreas(a)); }), transpose_lines: Ymacs_Interactive_X(function() { var a = []; this.cmd("backward_line"); this.cmd("beginning_of_line"); a.push(this.point()); this.cmd("end_of_line"); a.push(this.point()); this.cmd("forward_char"); a.push(this.point()); this.cmd("end_of_line"); a.push(this.point()); this.cmd("goto_char", this._swapAreas(a) + 1); }), transpose_chars: Ymacs_Interactive_X(function() { var pos = this.point(); if (this.cmd("backward_char")) this.cmd("goto_char", this._swapAreas([ pos - 1, pos, pos, pos + 1 ])); }), kill_word: Ymacs_Interactive_X(function() { var pos = this.point(); this.cmd("forward_word"); var pos2 = this.point(); this._killingAction(pos, pos2, false); }), backward_kill_word: Ymacs_Interactive_X(function() { var pos = this.point(); this.cmd("backward_word"); var pos2 = this.point(); this._killingAction(pos, pos2, true); }), _apply_operation_on_word: function (op, cc) { var pos = this.point(); if (this.getq("syntax_word").test(this.charAt())) { var pos2 = this.cmd("save_excursion", function(){ this.cmd("forward_word"); return this.point(); }); var word = op.call(this._bufferSubstring(pos, pos2)); this._deleteText(pos, pos2); this._insertText(word); } else { this.cmd("forward_word"); this.cmd("backward_word"); if (pos != this.point()) this.cmd(cc); } }, capitalize_word: Ymacs_Interactive_X(function() { this.cmd("_apply_operation_on_word", function() { return this.charAt(0).toUpperCase() + this.substr(1).toLowerCase(); }, "capitalize_word"); }), downcase_word: Ymacs_Interactive_X(function() { this.cmd("_apply_operation_on_word", String.prototype.toLowerCase, "downcase_word"); }), upcase_word: Ymacs_Interactive_X(function() { this.cmd("_apply_operation_on_word", String.prototype.toUpperCase, "upcase_word"); }), goto_char: Ymacs_Interactive("NGoto char: ", function(pos){ return this._repositionCaret(pos); }), goto_line: Ymacs_Interactive("NGoto line: ", function(row){ var pos = this._rowColToPosition(row - 1, 0); return this.cmd("goto_char", pos); }), move_to_column: Ymacs_Interactive("NMove to column: ", function(col, force){ var rc = this._positionToRowCol(this.point()); var text = this.code[rc.row]; if (text.length < col) { if (force) { this.cmd("end_of_line"); this.cmd("insert", " ".x(col - text.length)); } else { this.cmd("end_of_line"); } } else { this.cmd("goto_char", this._rowColToPosition(rc.row, col)); } }), delete_region: Ymacs_Interactive("r", function(begin, end){ this._deleteText(begin, end); }), insert: Ymacs_Interactive("sInsert text: ", function(){ return this._insertText(Array.$(arguments).join("")); }), keyboard_quit: Ymacs_Interactive("^p", Function.noop), buffer_substring: function(begin, end) { if (arguments.length == 0) { var r = this.getRegion(); begin = r.begin; end = r.end; } return this._bufferSubstring(begin, end); }, kill_line: Ymacs_Interactive_X(function() { var pos = this.point(), rc = this._rowcol, line = this.code[rc.row], end = pos + line.length - rc.col; if (rc.row < this.code.length - 1 && this.cmd("looking_at", /\s*$/mg)) end++; this._killingAction(pos, end); }), save_excursion: function() { return this._saveExcursion.apply(this, arguments); }, prevent_undo: function() { return this._disableUndo.apply(this, arguments); }, point: function() { return this.caretMarker.getPosition(); }, kill_region: Ymacs_Interactive("r", function(begin, end){ this._killingAction(begin, end); }), copy_region_as_kill: Ymacs_Interactive("r", function(begin, end){ this._killingAction(begin, end, false, true); }), yank: Ymacs_Interactive("^P", function(atStart){ this.deleteTransientRegion(); var point = this.point(); this._insertText(this.ymacs.killRingText()); this.cmd("set_mark_command", point); if (atStart) this.cmd("exchange_point_and_mark"); }), yank_pop: Ymacs_Interactive(function() { if (/^yank/.test(this.previousCommand)) { this.ymacs.rotateKillRing(false); this._deleteText(this.caretMarker, this.markMarker); this.cmd("yank"); } else { this.signalError("Previous command was not a yank"); } }), yank_shift: Ymacs_Interactive(function() { if (/^yank/.test(this.previousCommand)) { this.ymacs.rotateKillRing(true); this._deleteText(this.caretMarker, this.markMarker); this.cmd("yank"); } else { this.signalError("Previous command was not a yank"); } }), mark: function() { return this.markMarker.getPosition(); }, set_mark_command: Ymacs_Interactive("d", function(x){ if (this.currentCommand == "set_mark_command") this.signalInfo("Mark set", null, 1000); this.markMarker.setPosition(x); }), exchange_point_and_mark: Ymacs_Interactive("^", function(){ this.caretMarker.swap(this.markMarker); }), mark_whole_buffer: Ymacs_Interactive(function(){ this.clearTransientMark(); this.cmd("end_of_buffer"); this.ensureTransientMark(); this.cmd("beginning_of_buffer"); this.ensureTransientMark(); }), recenter_top_bottom: Ymacs_Interactive(function() { this.whenActiveFrame(function(frame){ frame.centerOnCaret(); }); }), ensure_caret_visible: Ymacs_Interactive(function() { this.whenActiveFrame(function(frame){ if (frame.ensureCaretVisible()) frame.centerOnCaret(); }); }), /* -----[ paragraphs ]----- */ fill_paragraph: Ymacs_Interactive("P", function(noPrefix) { this.cmd("save_excursion", function(){ if (!this.cmd("looking_at", this.getq("syntax_paragraph_sep"))) this.cmd("forward_paragraph"); var eop = this.createMarker(this.point() - 1); this.cmd("backward_paragraph"); if (this.point() > 0) this.cmd("forward_char"); // identify the prefix to use for each line var prefix = "", del = false; if (this.cmd("looking_at", /\s*([-]|[0-9]+\.|\(?[a-z][\).])?\s+/ig)) { prefix = " ".x(this.matchData[0].length); del = /\s*[#>;\s]*\s*/g; } else if (this.cmd("looking_at", /\s*[#>;*\s]+\s*/g)) { prefix = this.matchData[0]; del = /\s*[#>;\s]*\s*/g; } if (noPrefix) { this._deleteText(this.point(), this.point() + this.matchData[0].length); prefix = ""; } // remove newlines first while (true) { this.cmd("end_of_line"); this.cmd("backward_delete_whitespace"); if (this.point() >= eop.getPosition()) break; this._replaceText(this.point(), this.point() + 1, " "); if (del && this.cmd("looking_at", del)) { this._deleteText(this.point(), this.point() + this.matchData[0].length); } } this.cmd("beginning_of_line"); // main operation while (this.point() < eop.getPosition()) { var p = this.point(); if (!this.cmd("search_forward_regexp", /\s/g)) break; if (this.point() > eop.getPosition()) { this.cmd("goto_char", eop); } if (this._rowcol.col > this.getq("fill_column")) { this.cmd("goto_char", p); this.cmd("backward_delete_whitespace"); this.cmd("newline"); this.cmd("insert", prefix); } } eop.destroy(); this.cmd("recenter_top_bottom"); }); }), fill_paragraph_no_prefix: Ymacs_Interactive(function() { return this.cmd("fill_paragraph", true); }), // this looks at the style of the current paragraph and starts // a similar one, i.e. using same indentation level and prefix // (list-like prefixes are incremented) start_next_paragraph: Ymacs_Interactive(function() { this.cmd("backward_paragraph"); if (this.point() > 0) this.cmd("forward_char"); // identify the prefix to use for each line var prefix = ""; if (this.cmd("looking_at", /(\s*)([0-9]+)(\.\s+)/g)) { prefix = this.matchData[1] + (parseInt(this.matchData[2], 10) + 1) + this.matchData[3]; } else if (this.cmd("looking_at", /(\s*\(?)([a-z])([\.\)]\s+)/ig)) { prefix = this.matchData[1] + String.fromCharCode(this.matchData[2].charCodeAt(0) + 1) + this.matchData[3]; } else if (this.cmd("looking_at", /\s*[#>;*\s-]+\s*/g)) { prefix = this.matchData[0]; } this.cmd("forward_paragraph"); if (this.cmd("eob_p")) this.cmd("newline"); this.cmd("insert", "\n", prefix); if (!this.cmd("looking_at", /\n\n/g)) { this.cmd("newline"); this.cmd("backward_char"); }; }), scroll_down: Ymacs_Interactive_X(function() { this.whenActiveFrame(function(frame){ var hl = frame.heightInLines(); this.cmd("forward_line", Math.round(hl / 1.33)); this.cmd("recenter_top_bottom"); }); }), scroll_up: Ymacs_Interactive_X(function() { this.whenActiveFrame(function(frame){ var hl = frame.heightInLines(); this.cmd("backward_line", Math.round(hl / 1.33)); this.cmd("recenter_top_bottom"); }); }), nuke_trailing_whitespace: Ymacs_Interactive(function() { this.cmd("save_excursion", function(){ this.cmd("goto_char", 0); while (this._rowcol.row < this.code.length) { var line = this.code[this._rowcol.row], m = /\s+$/.exec(line); if (m) { this.cmd("beginning_of_line"); this._deleteText(this.point() + m.index, this.point() + line.length); } if (!this.cmd("forward_line")) break; } }); }), match_string: function(n) { return this.matchData[n]; }, match_beginning: function() { return this.matchData.index; }, match_end: function() { return this.matchData.index + this.matchData[0].length; }, undo: Ymacs_Interactive_X(function() { var q = this.__undoQueue; this.__undoQueue = this.__redoQueue; this._placeUndoBoundary(); if (!this._playbackUndo(q)) { this.signalError("No further undo information"); } this.__undoQueue = q; }), center_line: Ymacs_Interactive("p", function(n){ if (n == null) n = 1; n.times(function(i){ if (i > 0) this.cmd("forward_line"); this.cmd("save_excursion", function(){ this.cmd("end_of_line"); this.cmd("backward_delete_whitespace", true); this.cmd("beginning_of_line"); this.cmd("delete_whitespace", true); var line = this.code[this._rowcol.row]; var indent = Math.floor((this.getq("fill_column") - line.length) / 2); this.cmd("insert", " ".x(indent)); }); }, this); }), /* -----[ dabbrev ]----- */ dabbrev_expand: Ymacs_Interactive_X(function() { if (this.previousCommand != "dabbrev_expand") this.setq("dabbrev_context", null); var ctx = this.getq("dabbrev_context"); if (!ctx) { ctx = this.setq("dabbrev_context", {}); var p1 = this.cmd("save_excursion", function(){ this.cmd("bind_variables", { syntax_word: this.getq("syntax_word_dabbrev") }, "backward_word"); return this.point(); }); if (p1 == this.point()) return this.signalError("Nothing to expand"); ctx.search = this.cmd("buffer_substring", p1, this.point()); ctx.point = p1; ctx.length = this.point() - p1; ctx.lastSearch = p1; ctx.encountered = {}; ctx.forward = false; ctx.buffer = this; ctx.startBuffer = this; } var expansion; // in the following excursion, *this* is ctx.buffer, // not necessarily the currently active buffer. It's // purpose is to determine the next expansion and // setup the context so that the next invocation would // continue. ctx.buffer.cmd("save_excursion", function repeat(){ var word = this.getq("syntax_word_dabbrev"); var p1; var found = false; this.cmd("goto_char", ctx.lastSearch); // console.log("last at: %d", ctx.lastSearch); if (!ctx.forward) { while (this.cmd("search_backward", ctx.search)) { if (!word.test(this.charAt(-1))) { found = true; break; } } if (found) { p1 = this.point(); ctx.lastSearch = p1; this.cmd("goto_char", p1 + ctx.search.length); } else { ctx.forward = true; ctx.lastSearch = ctx.point + ctx.length; repeat.call(this); return; } } else { while (this.cmd("search_forward", ctx.search)) if (!word.test(this.charAt(-ctx.search.length - 1))) { found = true; break; } if (found) { ctx.lastSearch = this.point(); p1 = this.point() - ctx.search.length; } else { ctx.buffer = this.whenYmacs("getNextBuffer", this); if (ctx.buffer === ctx.startBuffer) { expansion = ctx.search; ctx.startBuffer.signalError("No more completions"); ctx.lastSearch = ctx.point + ctx.length; ctx.startBuffer.setq("dabbrev_context", null); return; } else { ctx.lastSearch = 0; ctx.buffer.cmd("save_excursion", repeat); return; } } } if (p1 != null) { // console.log("%s at %d, next from %d", ctx.search, p1, ctx.lastSearch); this.cmd("bind_variables", { syntax_word: this.getq("syntax_word_dabbrev") }, "forward_word"); expansion = this.cmd("buffer_substring", p1, this.point()); if (Object.HOP(ctx.encountered, expansion)) repeat.call(this); } }); if (expansion != null) { this._replaceText(ctx.point, ctx.point + ctx.length, expansion); ctx.length = expansion.length; ctx.encountered[expansion] = true; } }), /* -----[ frames and buffers ]----- */ split_frame_vertically: Ymacs_Interactive("p", function(percent) { if (percent == null) percent = "50%"; else percent += "%"; this.whenActiveFrame("vsplit", percent); }), split_frame_horizontally: Ymacs_Interactive("p", function(percent) { if (percent == null) percent = "50%"; else percent += "%"; this.whenActiveFrame("hsplit", percent); }), delete_other_frames: Ymacs_Interactive(function() { this.whenActiveFrame("deleteOtherFrames"); }), delete_frame: Ymacs_Interactive(function() { this.whenActiveFrame("deleteFrame"); }), other_frame: Ymacs_Interactive(function() { this.whenYmacs("focusOtherFrame"); }), windmove: function(dir) { this.whenYmacs(function(ymacs){ var f = ymacs.getFrameInDirection(dir); if (f) f.focus(); }); }, next_buffer: Ymacs_Interactive(function() { this.whenYmacs("switchToNextBuffer", this.sameCommandCount() + 1); }), previous_buffer: Ymacs_Interactive(function() { this.whenYmacs("switchToPreviousBuffer", this.sameCommandCount() + 1); }), switch_to_buffer: Ymacs_Interactive("BSwitch to buffer: ", function(name) { this.whenYmacs(function(ymacs){ ymacs.switchToBuffer(name); }); }), kill_buffer: Ymacs_Interactive(function() { this.whenYmacs(function(ymacs){ ymacs.killBuffer(this); }); }), rename_buffer: Ymacs_Interactive("sRename current buffer to: ", function(name){ this.whenYmacs(function(ymacs){ ymacs.renameBuffer(this, name); }); }), /* -----[ other ]----- */ delete_region_or_line: Ymacs_Interactive("^", function() { if (!this.deleteTransientRegion()) { this.cmd("beginning_of_line"); var pos = this.point(); if (this.cmd("forward_line") || this.cmd("end_of_line")) { this._deleteText(pos, this.point()); return true; } } }), // http://mihai.bazon.net/blog/close-last-xml-tag-emacs close_last_xml_tag: Ymacs_Interactive_X(function() { var tag, quote; this.cmd("save_excursion", function() { var skip = 1; while (skip != 0 && this.cmd("search_backward_regexp", /<\x2f?([a-zA-Z0-9:_-]+)/g)) { tag = this.cmd("match_string", 1); if (this.cmd("looking_at", /<\x2f/g)) { ++skip; } else if (!this.cmd("looking_at", /<[^\x2f][^>]*?\x2f>/g)) { --skip; } } if (skip != 0) tag = null; }); if (tag) { this.cmd("insert", ""); } else { throw new Ymacs_Exception("Couldn't find a tag to close"); } }), bind_variables: function() { return this.withVariables.apply(this, arguments); }, for_region: Ymacs_Interactive("^r\nCExecute command within region: ", function(begin, end, func) { if (end < begin) { var tmp = begin; begin = end; end = tmp; } // MACROS! I WANT MACROS! EVAL SUCKS. x-( if (!(func instanceof Function)) func = this.COMMANDS[func]; this.clearTransientMark(); this.cmd("goto_char", begin); begin = this.createMarker(begin, true); end = this.createMarker(end); this.withCommands( { goto_char: function(pos){ if (pos >= begin.getPosition() && pos <= end.getPosition()) return this._repositionCaret(pos); throw "YMACS_RESTRICT"; } }, function() { try { while (true) { var tmp = this.point(); func.call(this); if (this.point() == tmp && !this.cmd("forward_line")) break; } } catch(ex) { if (ex !== "YMACS_RESTRICT") throw ex; } finally { begin.destroy(); end.destroy(); } } ); }) }); /* -----[ rectangle functions (vertical editing) ]----- */ (function(){ function apply_on_rectangle(buffer, begin, end, func) { buffer.cmd("save_excursion", function(){ var p1 = this._positionToRowCol(begin), p2 = this._positionToRowCol(end), width = Math.abs(p2.col - p1.col); for (var line = p1.row; line <= p2.row; ++line) { this.cmd("goto_char", this._rowColToPosition(line, 0)); var text = this.code[line], c1 = p1.col, c2 = p2.col, p = this.point(), ws = 0; if (c1 > c2) { var tmp = c1; c1 = c2; c2 = tmp; } if (c1 > text.length) { ws = c1 - text.length; c1 = text.length; } if (c2 > text.length) { c2 = text.length; } func.call(this, p + c1, p + c2, ws, width); } }, begin == buffer.point()); }; Ymacs_Buffer.newCommands({ string_rectangle: Ymacs_Interactive("r\nsString rectangle: ", function(begin, end, string) { apply_on_rectangle(this, begin, end, function(c1, c2, ws){ if (ws > 0) { this._insertText(" ".x(ws), c1); } else { this._deleteText(c1, c2); } this._insertText(string, c1 + ws); }); }), kill_rectangle: Ymacs_Interactive("r", function(begin, end){ var text = []; apply_on_rectangle(this, begin, end, function(c1, c2, ws, width){ var str = this._bufferSubstring(c1, c2); if (c2 - c1 < width) str += " ".x(width - c2 + c1); text.push(str); this._deleteText(c1, c2); }); this.setq("killed_rectangle", text); }), clear_rectangle: Ymacs_Interactive("r", function(begin, end){ this.cmd("string_rectangle", begin, end, " ".x(Math.abs(this._positionToRowCol(end).col - this._positionToRowCol(begin).col))); }), insert_rectangle: function(point, rect) { var col = this._positionToRowCol(point).col; this.cmd("set_mark_command", point); rect.foreach(function(text, i){ if (i > 0) { if (!this.cmd("forward_line")) { this.cmd("end_of_line"); this.cmd("newline"); } this.cmd("move_to_column", col, true); } this.cmd("insert", text); }, this); }, yank_rectangle: Ymacs_Interactive("d", function(point){ var kr = this.getq("killed_rectangle"); if (kr == null) throw new Ymacs_Exception("No killed rectangle"); this.cmd("insert_rectangle", point, kr); }) }); })(); /* -----[ commands to help using the system clipboard ]----- */ (function(){ // // this should be moved some level up if it proves to be more // generally useful function modalTextarea(title, text, cont) { var dlg = this.createDialog({ title : title, quitBtn : "destroy", modal : true }); var entry = new DlEntry({ parent: dlg, type: "textarea", fillParent: true, value: text }); dlg._focusedWidget = entry; dlg.setSize({ x: 350, y: 250 }); entry.addEventListener("onKeyPress", function(ev){ if (ev.keyCode != DlKeyboard.ESCAPE) { // var code = entry.getValue().replace(/\t/g, " "); var code = entry.getValue(); dlg.destroy(); cont.delayed(0, this, code); // XXX Without a delay here, be it zero, stars will align in such a way that // yank_from_operating_system will move the caret in some bizarre position after // inserting the pasted text. // cont.call(this, code); } }.clearingTimeout(0, this)); dlg.show(true); entry.select(); }; // Ymacs_Buffer.newCommands({ yank_from_operating_system: Ymacs_Interactive(function() { modalTextarea.call(this, "Paste below (press CTRL-V)", null, function(code){ this._saveKilledText(code); this.cmd("yank"); this.cmd("recenter_top_bottom"); }); }), copy_for_operating_system: Ymacs_Interactive("r", function(begin, end) { modalTextarea.call(this, "Press CTRL-C", this.cmd("buffer_substring"), function(){ this.cmd("copy_region_as_kill", begin, end); }); }), kill_for_operating_system: Ymacs_Interactive("r", function(begin, end) { modalTextarea.call(this, "Press CTRL-C or CTRL-X", this.cmd("buffer_substring"), function(){ this.cmd("kill_region", begin, end); }); }) }); })(); /* -----[ transient mark extension commands ]----- */ [ "forward_char", "forward_word", "forward_line", "forward_paragraph", "forward_sexp", "beginning_of_line", "beginning_of_indentation_or_line", "beginning_of_buffer", "backward_char", "backward_word", "backward_line", "backward_paragraph", "backward_sexp", "end_of_line", "end_of_buffer" ].foreach(function(cmd) { Ymacs_Buffer.COMMANDS[cmd + "_mark"] = Ymacs_Interactive("^", function(){ this.ensureTransientMark(); this.cmdApply(cmd, arguments); this.ensureTransientMark(); }); });