「行を複製 (複数行可)」の版間の差分

選択範囲がないばあいはカーソル位置の論理行を、選択範囲があるばあいは選択範囲をふくむ論理行全体（複数行可）を、下または上に複製します。

* 行の途中からべつの行の途中までのような大ざっぱな範囲選択状態から「行の複製」を実行することを想定しています。

* ルーラーの行番号のドラッグでの複数行選択やトリプルクリックでの行選択などで、選択範囲の末尾に改行が含まれているばあい、さいごの改行を無視します。

== ダウンロード ==

== ソースコード ==

#title = "行を複製 (複数行可)"

#tooltip = "選択範囲(複数行可)の論理行を複製する"

/**

  */

// ---------- ▼ 設定項目 ▼ ----------

var duplicateDown = true; // （下の行：true ／ 上の行：false）

// ■ 複数行選択のとき、ブックマークを維持するか？

var preferBookmark = true;

   // true  ならアンドゥすると選択範囲が解除されるが、ブックマークを維持する

// ---------- ▲ 設定項目 ▲ ----------

var d = editor.ActiveDocument;

if ( d.ReadOnly ) {

   Status = "　ドキュメントは書き換え禁止です。";

}

   // 選択範囲の各座標を取得

   var bx = s.GetBottomPointX( mePosLogical );

   var by = s.GetBottomPointY( mePosLogical );

   // 選択範囲の末尾が終端の空行 ( ^[EOF] ) にあるときの調整用

   var eof = ( ty < by && bx == 1 && ! d.Text.charAt( s.GetActivePos() ) )

   // 選択範囲の末尾が行頭にあるときの調整

   // 選択範囲の拡張

   s.EndOfLine( false, mePosLogical );

   s.SetAnchorPoint( mePosLogical, 1, ty );

   // ■下に複製した行全体を範囲選択する

   if ( duplicateDown ) {

       s.EndOfDocument( true );

     }

     else {

       s.SetAnchorPos( s.GetActivePos() + 1 );

   }

   else {

     // 終端の空行だけを複製した場合 → 範囲選択なし

       s.SetActivePos( s.GetActivePos() - 1 );

     }

     else {

       s.SetAnchorPoint( mePosLogical, 1, ty );

       s.SetActivePoint( mePosLogical, 1, by + 1, true );

       // 終端の空行をふくめて複製した場合

       }

     }

   }

}

== メモ ==

* 文書終端の空行（EOF マークのみの行）を含めているかいないかで「行の複製」マクロ実行後のキャレット（入力カーソル）の位置をかえているのは、連続で「行の複製」を実行するさいに同じ範囲を選択状態にして複製させるための仕様です。

* 2019/05/07 (sukemaru)

: 従来の「アンドゥしたら範囲選択状態が残る」ほうが良いという人もいるかもしれないので、項目設定にオプションを追加しました。「preferBookmark = false」が従来版の動作ですが、複数行で「複製」を実行した場合にはブックマーク設定がズレたり消えたりします。