「タブを複製する」を編集中 (節単位)

== ソースコード ==
; ダウンロード　>>　「[[ファイル:タブを複製.zip]]」 （アイコン入り）

<syntaxhighlight lang="javascript">
#title = "タブを複製"
#tooltip = "新規タブに複製して開く"
// #icon = "file_duplicate.ico"

/**
 * ---------------------------------------------------------
 * 「タブを複製」マクロ
 * sukemaru, 2020/06/01 - 2020/10/30
 * ---------------------------------------------------------
 * 2020/06/22:
 * ・設定項目を追加
 * ・マルチカーソル選択範囲も複製可（Mery Ver 3.0.x ～）
 * ・複数ウインドウモード（SDI／タブ無効）に仮対応
 * 2020/10/30:
 * ・折り返し設定を同期（Mery Ver 3.1.0a ～）
 */

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

// ■ 複製先の『無題』タブを「書き換え禁止」にする？
var newTabReadOnly = true;	// true する ／ false しない

  // true にすると、ステータスバー右下に「書禁」が表示され編集禁止状態になる
  // false にすると、複製先の『無題』タブも編集可能状態になる


// ■ 複製先の『無題』タブを「未変更」にする？（保存済みに偽装）
var newTabSaved = true;		// true する ／ false しない

  // true にすると、「変更を保存しますか？」の確認なしでタブを閉じられる
  // false にすると、「変更あり*」のフラグを付加する


// ■ 複製先の『無題』タブにテキストを貼り付けない？
var newTabBlank = false;	// true 貼り付けない ／ false 貼り付ける

  // true にすると、元のタブのテキストをクリップボードにコピー（書式設定のみ複製）
  // false にすると、タブの完全な複製

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


( function DuplicateDocument() {
  Redraw = false;
  // 現在アクティブなタブ
  var d = editor.ActiveDocument,  s = d.selection;
  var dt = d.Text;
  // 折り返し設定を取得（Mery Ver 3.1.0a ～）
  var wrapMode = ( ! "QueryStatusByID" in editor
  || typeof editor.QueryStatusByID( 2148 ) != "number" ) ? 0
               : editor.QueryStatusByID( 2146 ) === 3 ? 2146
               : editor.QueryStatusByID( 2147 ) === 3 ? 2147
               : editor.QueryStatusByID( 2148 ) === 3 ? 2148 : 0;
  // 選択範囲の座標を取得
  var sx = ScrollX,  sy = ScrollY;
  var act = s.GetActivePos(),  anc = s.GetAnchorPos();
  var sCount = s.Count || 0,  sMode = s.Mode || 0;
  if ( sCount ) {
    var Sel = [];
    for ( var i = 0; i < sCount; i ++ ) {
      Sel[i] = { act: s.GetActivePos( i ),  anc: s.GetAnchorPos( i ) };
    }
  }
  // ブックマーク設定を収集する
  var bmArray = [],  bmCount = 0;
  if ( d.GetLines() > 1 && ! newTabBlank ) {
    s.SetActivePoint( mePosLogical, 1, 2 );
    if ( s.PreviousBookmark() ) {
      bmArray[ bmCount ++ ] =  s.GetActivePointY( mePosLogical );
    }
    s.SetActivePos( 0 );
    while ( s.NextBookmark() ) {
      bmArray[ bmCount ++ ] =  s.GetActivePointY( mePosLogical );
    }
    // 選択範囲を復帰
    s.SetActivePos( anc );
    if ( sCount ) {
      for ( var i = 0; i < sCount; i ++ ) {
        s.AddPos( Sel[i].anc, Sel[i].act );
      }
    }
    else { s.SetActivePos( act, true ); }
    if ( sMode === 2 ) { s.Mode = meModeBox; }
    ScrollX = sx;  ScrollY = sy;
  }

  // 新規『無題』タブにテキストと属性を設定する
  if ( d.Name || dt || ! d.Saved ) {
    editor.NewFile();
    var ad = editor.ActiveDocument;
    if ( ad === d ) {
      var eCount = editors.Count;
      var ee,  ds,  dCount,  dd;
      for ( var i = eCount - 1; i >= 0; i -- ) {
        ee = editors.Item( i );  ds = ee.documents;
        dCount = ds.Count;  dd = ds.Item( ds.Count - 1 );
        if ( dd === ee.ActiveDocument && ! dd.Name && ! dd.Text ) {
          ad = dd;  break;
        }
      }
      if ( ad === d || ad.Name || ad.Text ) {
        Status = "新規『無題』タブを見つけられませんでした。";
        Redraw = true;  return;
      }
    }
    var as = ad.selection;
    ad.Mode = d.Mode;  ad.Encoding = d.Encoding;
    if ( "IndentSize" in d && d.IndentSize ) {
      ad.IndentSize = d.IndentSize;
      ad.IndentStyle = d.IndentStyle;
      ad.InsertFinalNewLine = d.InsertFinalNewLine;
      ad.TrimTrailingWhiteSpace = d.TrimTrailingWhiteSpace;
    }
    if ( wrapMode ) {	// Mery Ver 3.1.0a 以降
      ad.MaxLineLength = d.MaxLineLength;
      editor.ExecuteCommandByID( wrapMode );
    }
    // newTabBlank → テキストを貼り付けず、クリップボードにコピー
    if ( newTabBlank ) { ClipboardData.SetData( dt ); }
    else {
      ad.Text = dt;  ad.Saved = true;
      // ブックマーク
      if ( bmCount = bmArray.length ) {
        for ( var i = 0; i < bmCount; i ++ ) {
          as.SetActivePoint( mePosLogical, 1, bmArray[i], false );
          as.SetBookmark();
        }
      }
      as.SetActivePos( anc );
      if ( sCount ) {
        for ( var i = 0; i < sCount; i ++ ) {
          as.AddPos( Sel[i].anc, Sel[i].act );
        }
      }
      else { as.SetActivePos( act, true ); }
      if ( sMode === 2 ) { as.Mode = meModeBox; }
    }
    ad.Saved = newTabSaved;
    ad.ReadOnly = newTabReadOnly;
    Redraw = true;  Sleep( 500 );
    ScrollX = sx;  ScrollY = sy;
  }
} )( newTabReadOnly, newTabSaved, newTabBlank );
</syntaxhighlight>