/jEdit/tags/jedit-4-3/macros/Editing/Duplicate_Lines_Above.bsh
# · Unknown · 69 lines · 61 code · 8 blank · 0 comment · 0 complexity · 93d0a1acac34206f61b918896a36c150 MD5 · raw file
- /*
- * Duplicate_Lines_Above.bsh - a BeanShell macro script for the
- * jEdit text editor - duplicates the cursor line.
- * Copyright (C) 2001 Francesc Roses
- * Copyright (c) 2008 encorejane
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with the jEdit program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- * based on: Duplicate_Line.bsh 3866 2001-11-06 15:04:21Z jgellene
- *
- * Checked for jEdit 4.3 API
- *
- */
-
- void duplicateLinesAbove()
- {
- /*
- * Guard for readonly files becuase Buffer.insert()
- * ignores the flag
- *
- */
- if(buffer.isReadOnly())
- {
- Macros.error(view, "This file is read only.");
- return;
- }
-
- selections = textArea.getSelectedLines();
- if(selections.length == 0){
- selections = new int [] {textArea.getCaretLine()};
- }
- start = textArea.getLineStartOffset(selections[0]);
- stop = textArea.getLineEndOffset(selections[selections.length-1]);
- if(stop-1 == textArea.getBufferLength()){
- text = textArea.getText(start,stop-start-1)+'\n';
- }else{
- text = textArea.getText(start,stop-start);
- }
- buffer.insert(start, text);
- }
-
- duplicateLinesAbove();
-
- /*
-
- Macro index data (in DocBook format)
-
- <listitem>
- <para><filename>Duplicate_Line.bsh</filename></para>
- <abstract><para>
- Duplicates the line on which the caret lies immediately
- above it.
- </para></abstract>
- </listitem>
-
- */
-
- // end Duplicate_Line.bsh