「「クリップボード履歴」メニューのマクロ化」を編集中



公式フォーラム[https://www.haijin-boys.com/discussions/4686] にて「[[ヘルプ:ツール#クリップボード履歴|クリップボード履歴]]」メニューの将来的に廃止されることが 予告？検討？ されていますが、後継機能としては [[クリップボード履歴|「クリップボード履歴」プラグイン]] の登場により今後も安泰のようですね。

ということで、試験運用中だった自家用マクロを再度リサイクルして「'''クリップボード履歴'''と'''スニペット'''」の統合版ポップアップメニューにしてみました。
:「クリップボード履歴」機能は Mery 2.8.1 以降の『延命措置』の新パラメータ[https://www.haijin-boys.com/discussions/4686#discussion-4729] を利用したもの。
:「スニペット」機能は [[プラグイン:スニペットプラグイン|スニペットプラグイン]] の設定ファイル '''snippets.txt''' を読み書きするというかたちにしています。
<br>
* あらかじめ「[[includeライブラリ]]」の導入が必要です。
* 「[[プラグイン:スニペットプラグイン|スニペットプラグイン]]」を導入していないでも「スニペット（定型文）」機能を利用できます。
* 外部実行ファイル「[[GetKeyState.exe(キー状態取得実行ファイル)|GetKeyState.exe]] 」で機能を拡張できます。
* <b style="color:#c00;">このマクロは Mery 2.8.1 以降でしか利用できません。</b>
* 動作確認は Windows XP sp3 (32bit) × Mery ベータ版 2.8.2 - 2.8.3 (ポータブル) でしかしていません。
<br>
一見して '''誰得？''' なマクロですが、「クリップボード履歴」を「スニペット」機能とまとめてツールバーアイコン化できるという素敵なメリットがあります。

''cf.'' マクロライブラリには「[[定型文を挿入]]」機能に特化したマクロも別途あります。


== ソースコード ==
ダウンロード： 「[[ファイル:クリップボード履歴.zip ‎]]」(アイコン同梱 2019/08/01)

<source lang="javascript">
#title = "クリップボード履歴..."
#tooltip = "クリップボード履歴 と スニペット"
#include "include/IO.js"
// #icon = "clipboard_history[1].ico"

/**
 * --------------------------------------------------
 * 「クリップボード履歴 と スニペット」マクロ
 * 	sukemaru, 2019/08/01 
 * --------------------------------------------------
 * 「クリップボード履歴」メニューと「スニペット」プラグインと同等の機能を
 *   ひとつのポップアップメニューに統合します
 * 
 * 【このマクロの仕様・制限事項】
 * ・ver 2.8.0 以前の Mery では使用できません。
 * ・「クリップボード履歴」は Mery 本体のメモリストアのものを使用します。
 * ・「スニペット」プラグインの設定ファイル snippets.txt の読み書きをします。
 * ・「include ライブラリ」が必要です（snippets.txt ファイルの読み書きに使用）。
 * ・「GetKeyState.exe(キー状態取得実行ファイル) 」で機能を拡張できます。
 *      → クリップボード履歴のアイテムを Ctrl＋クリックした場合、
 *         アイテムを貼り付けし、貼り終えたアイテムを削除します。
 * 
 * ※「スニペット」プラグインを導入していない場合でも、
 *     snippets.txt ファイルの保存場所は Mery\Plugins\Snippets フォルダです
 *   （インストーラ版では %AppData%\Mery\Plugins\Snippets フォルダ）。
 * 
 * ※「GetKeyState.exe」は Mery\Macros フォルダに配置してください。
 *   「GetKeyState.exe」を導入していない場合は、
 *   「貼り付けしてからアイテムを削除する」サブメニューを表示します。
 */

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

// ■ ポップアップメニューを表示する位置
var menuPosMouse = true;	// true: マウス位置 ／ false: キャレット位置

// ■ ポップアップメニューに表示する文字数
var menuWidth = 80;

// ■ GetKeyState.exe のフルパスを指定する場合（「\」記号はふたつがさね「\\」で）
var getKeyStatePath = "";	// editor.FullName.replace( /[^\\]+$/, "Macros\\GetKeyState.exe" );

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


var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var WshShell = new ActiveXObject( "WScript.Shell" );

// ClipboardData。Get/ClearData() に引数を指定できるのは ver 2.8.1 以降
if ( ! VersionCheck( "2.8.1" ) ) {
  WshShell.SendKeys( "%TC" );
}

else {
  var meryPath = editor.FullName;
  var mery = Fso.GetBaseName( meryPath );
  var meryDir = Fso.GetParentFolderName( meryPath ) + "\\";
  var profileDir = meryDir;
  var iniPath = meryDir + mery + ".ini";
  if ( ! Fso.FileExists( iniPath ) ) {
    profileDir = WshShell.SpecialFolders( "APPDATA" ) + "\\Mery\\";
  }
  var snippetsPath = profileDir + "Plugins\\Snippets\\Snippets.txt";
  var snIsExist = Fso.FileExists( snippetsPath );
  var getKeyStatePath;
  var getKeyState = getKeyStatePath || meryDir + "Macros\\GetKeyState.exe";
  var gksIsExist = Fso.FileExists( getKeyState );
  var $ctrl = 0;

  var d = editor.ActiveDocument;
  var s = d.selection;
  var st = s.Text;

  var menu = CreatePopupMenu();
  var sm0 = CreatePopupMenu();
  var sm1 = CreatePopupMenu();
  var sm2 = CreatePopupMenu();
  var menuFlags = d.ReadOnly ? meMenuGrayed : 0;

  // ピン止めアイテム （スニペット）
  var snippets = "", snCount = 0;
  if ( snIsExist ) {
    snippets = IO.LoadFromFile( snippetsPath, "utf-8" );
    var snArray = snippets.replace( /$/gm,"\r\n" )
                          .slice( 0, -2 ).split( "\r\n\n" );
    snCount = snArray.length;
    var snWidth = String( snCount ).length;
  }

  menu.AddPopup( "ピン止めアイテム／スニペット (&P)", sm0 );

  if ( snCount ) {
    // スニペットのアイテム
    for ( var i = 0, id, label; i < snCount; i ++ ) {
      id = i + 1;
      label = snArray[i].replace( /\t[\s\S]*/, "" );
      sm0.Add( MenuKey( label, id, snWidth ), id + 300, menuFlags );
    }
    sm0.Add( "", 0, meMenuSeparator );
  }
  if ( st ) {
    sm0.Add( "選択範囲を登録 (&P)", 300 );
  }
  if ( snIsExist ) {
    sm0.Add( "スニペットを編集 (&E) ...", 400 );
  }

  // クリップボード履歴
  var cb = ClipboardData;
  var cbArray = [];
  for ( var i = 0; ; i ++ ) {
    cbItem = cb.GetData( i );
    if ( ! cbItem.length ) { break; }
    cbArray.push( cbItem );
  }
  var cbCount = cbArray.length;
  var cbWidth = String( cbCount ).length;

  if ( cbCount ) {
    // クリップボード履歴のアイテム（ペースト用）
    menu.Add( "", 0, meMenuSeparator );
    menu.Add( "▼ クリップボード履歴 ▼", 0, meMenuGrayed );
    for ( var i = 0, id, label; i < cbCount; i ++ ) {
      id = i + 1;
      label = MenuKey( cbArray[i], id, cbWidth );
      menu.Add( label, id, menuFlags );
      sm1.Add( label, id + 100, menuFlags );
      sm2.Add( label, id + 200 );
    }
    menu.Add( "", 0, meMenuSeparator );

    if ( ! gksIsExist ) {
      menu.AddPopup( "貼り付けしてからアイテムを削除する (&M)", sm1 );
    }
    menu.AddPopup( "クリップボードの履歴からアイテムを削除する (&D)", sm2 );
    menu.Add( "クリップボードのすべての履歴を削除する (&C)", 500 );
  }

  menu.Add( "", 0, meMenuSeparator );
  menu.Add( "キャンセル & ", 0 );


  // ポップアップメニューを表示
  var r = menu.Track( + menuPosMouse );
  var confirmStr = menu.GetText( r ).replace( "する", "しますか？ ");

  // 1 ～ 16: 貼り付け
  if ( r > 0 && r < 100 ) {
    d.Write( cbArray[ r -1 ] );
    // Ctrl キーを押しながらのときは、貼り付けたアイテムを履歴から削除する
    if ( gksIsExist ) {
      $ctrl = WshShell.Run( "\"" + getKeyState + "\" c", 0, true );
    }
    if ( $ctrl == 1 ) {
      cb.ClearData( r -1 );
    }
  }

  // 101 ～ 116: 貼り付けして、そのアイテムをクリップボード履歴から削除する
  else if ( r > 100 && r < 200 ) {
    d.Write( cbArray[ r -101 ] );
    cb.ClearData( r -101 );
  }

  // 201 ～ 216: アイテムをクリップボード履歴から削除する
  else if ( r > 200 && r < 300 ) {
    cb.ClearData( r -201 );
  }

  // 301 ～ 399: ピン止めアイテムを貼り付け
  else if ( r > 300 && r < 400 ) {
    var str = spArray[ r -301 ].replace( /^[^\t]*\t/, "" )
                               .replace( /(\\r)?\\n/g, "\n" )
                               .replace( /\\t/g, "\t" )
    d.Write( str );
  }

  // 300: 選択範囲を登録（ピン止め）
  else if ( r == 300 ) {
    var snippetsDir = Fso.GetParentFolderName( snippetsPath );
    var pluginsDir = Fso.GetParentFolderName( snippetsDir );
    if ( ! Fso.FolderExists( pluginsDir ) ) {
      Fso.CreateFolder( pluginsDir );
    }
    if ( ! Fso.FolderExists( snippetsDir ) ) {
      Fso.CreateFolder( snippetsDir );
    }
    var str = snippets
            + ( snippets ? "\n" : "" )
            + st.replace( /\t/g, "\\t" )
                .replace( /\r?\n/g, "\\n" );
    IO.SaveToFile( snippetsPath, str, "utf-8", true );
  }

  // 400: ピン止めアイテムを編集（snippets.txt を開く）
  else if ( r == 400 ) {
    WshShell.Run( "\"" + editor.FullName + "\" \"" + snippetsPath + "\"" )
  }

  // 500: クリップボード履歴をすべて削除する
  else if ( r == 500 && Confirm( confirmStr ) ) {
    for ( var i = 0; i < cbCount; i ++ ) {
      cb.ClearData( i );
    }
  }

}


// ---------- ▼ 関数 ▼ ---------- //

/**
 * 関数 VersionCheck( versionStr )
 * Mery 本体が引数で指定したバージョン以上かチェックする（ i.e. "2.6.9" ）
 * 戻り値は、真偽値 true/false
 */
function VersionCheck( versionStr ) {
  var Pad2 = function( str ) {
    return str.replace( /[0-9]+/g , function( digit ) {
      return digit.length < 2 ? "0" + digit : digit
    } )
  };
  var editorVer = + ( Pad2( editor.Version ).replace( /\./g, "" ).slice( 0, 6 ) );
  var requirement = + ( Pad2( versionStr ).replace( /\./g, "" ).slice( 0, 6 ) );
  return ( editorVer >= requirement );
}

/**
 * 関数 MenuKey( str, num, width )
 * ポップアップメニューに表示するラベルを生成する
 * ・行頭空白を除去、空白文字を圧縮
 * ・削られてしまう「&」を補完
 * ・「¥」(U+005C) を「∖」に置換:「∖」(U+2216) または「╲」(U+2572) 「﹨」(U+FE68)
 * ・判別しづらいメタ文字を全角に置換:	!"%'(),.:;@[]`{|}
 * ・「a-z」を全角に置換
 * ・行番号を空白でケタ埋め:	EN SPACE「 」(U+2002)
 * ・文字数を切り詰め
 */
function MenuKey( str, num, width ) {
  var menuKey = str.replace( /^[\t 　]+/gm, " ›　" )
                   .replace( /\r?\n/g, "⏎ " )
                   .replace( /(?:\t|[ ]{3,}|[　]{2,})+/g, " ›　" )
                   .replace( /[&]/g, "&&" )
                   // .replace( /[\\]/g, "∖" )
                   // .replace( /([^∖!"',.:;`|\t 　])([∖]+)/g, "$1 $2" )
                   // .replace( /[!"%'(),.:;@\[\]`a-z{|}]/g,
                   //   function( tmp ) {
                   //     return String.fromCharCode( tmp.charCodeAt( 0 ) + 0xFEE0 )
                   //   } );
  num = ( "   " + num ).slice( - width ).replace( /\d$/, "&$&" );
  menuKey = ( menuKey.length > menuWidth )
          ? menuKey.slice( 0, menuWidth ) + " ..."
          : menuKey;
  return num + ": " + menuKey;
}
</source>