「インデントブロック作り」を編集中


<pre>
  カーソルがある論理行の下に新しいインデントした{}ブロックを作る（挿入）。
    まず開始文字列を挿入して改行、
    現在行(挿入される行のすぐ上)の開始桁と揃うだけの幅の空白を追加して
    終了文字列を挿入し、
    その右に続けてカーソル以降の文字列を表示。
    そしてその行の上に新しい行を挿入。
    カーソルは前の行の開始桁より、右方向にタブ１つ幅を移動。
  
  ... {
    |←カーソル
  }
  の形のブロックとなる。

  行頭で使えば行頭がそろい
  {
    |←カーソル
  }
  の形となる。
  
  すでにある１行または複数行をインデントブロックにする。
    選択範囲が１字でもあれば、範囲の最後の行末まで選択を拡張してから、
    範囲をすべてインデントブロックにする。
    ブロックの最後の行に新しい行を挿入。
</pre>

<pre>
  インデント{}ブロック作り(Shift+Ctrl+[).js

まず、My Macros フォルダに itokusu フォルダを用意。
下の内容を、上の名前のファイルにして、My Macros\itokusu に置く。
そこから Mery で開いて、マクロ - これを選択、
ツール - オプション - キーボード の マクロ で Shift+Ctrl+[ に割り当て。
</pre>

ここから長くコピーしてエディタに貼り付けるのではなく、ファイルからの登録に。

※ マクロitokusuセット_01: [[ファイル:itokusu_01_120906.zip]]
<pre>
  逆タブ(Shift+Tab).js                      … 逆タブと逆インデント
  インデント{}ブロック作り(Shift+Ctrl+[).js … 閉じてインデントブロック

  行を選択(Ctrl+￥、F11).js                 … 追加の行選択
  行頭から行末まで選択(Shift+Ctrl+￥、Shift+Ctrl+F11).js    … 改行前選択

  行の両端移動と選択解除(Ctrl+;).js         … そこで解除→行末→行頭
  行頭まで選択と字頭移動(Ctrl+：).js        … 行頭から選択→本文の頭位置

  省略記号…(Ctrl+Alt+.).js                 … …記号、注釈記号、注釈解除


マクロitokusuセットの使い方:
  フォルダ付きで展開したら、itokusu フォルダを My Macros にコピー。

  マクロ - カスタマイズ - 新規作成 で、 My Macros\itokusu フォルダ
  を選択、Ctrlキーを押しながらファイル名をクリックで、登録しようと
  している複数のマクロをすべて選択してから - 開く。

  マクロの名前に書かれているキー（全角字は半角に読みかえて…）に、
  ツール - オプション - キーボード の マクロ でそれぞれを割り当て。
</pre>

<source lang="javascript">
// - 糸くす~------------------------------------- Copyright(C)2011-2012 inuuik -
// インデント{}ブロック作り(Shift+Ctrl+[)
//
//   カーソルがある論理行の下に新しいインデントした{}ブロックを作る（挿入）。
//   まず開始文字列を挿入して改行、現在行(挿入される行のすぐ上)の開始桁と揃うだ
//   けの幅の空白を追加して終了文字列を挿入し、その右に続けてカーソル以降の文字
//   列を表示。そしてその行の上に新しい行を挿入。カーソルは前の行の開始桁より右
//   方向にタブ１つ幅を移動。
//   
//   ... {
//     |←カーソル
//   }
//   の形のブロックとなる。
//   行頭で使うか、「行を揃いで下に新しく(Shift+Enter).js」を使えば行頭がそろい
//   {
//     |←カーソル
//   }
//   の形となる。
//   
//   
//   選択範囲が 1字でもあれば範囲の最後の行末まで選択を拡張してから範囲をすべて
//   インデントブロックにする。ブロックの最後の行に新しい行を挿入。
//   
//   選択範囲が改行以外の文字で始まるときは、文字の前から空白を削除、改行し、そ
//   の文字からインデントブロックの最初の行を始める。１行に記述していたブロック
//   文を複数行のブロックに書き換えることを想定し、１行の行末に空白と終了カッコ
//   があれば削除。
//   
//   
//   別のカッコを使うときは開始文字を入れた直後に動作させると、カーソル位置の直
//   前の１語を開始文字列として判別し、対応する終了文字列を判定する。間に空白が
//   あると機能しない。
//   
//   行頭がコメント文字らしきときはそれらの文字も含めて行頭に追加。追加する空白
//   文字列は現在行と同じ内容を転記して使用。
//   
//   
//   特殊動作として開始文字を数字とすると終了文字列を連番にした同じ形のインデン
//   トブロックを挿入する。番号づけをしながら字下げをして記述を続けるなどに。連
//   番の進行で桁が増えると挿入の開始位置は同じなのでカーソル位置が右にずれる。
//   必要なら使用者が数字の頭を左に移動するなどの位置ぞろえをする。全角数字も。
//   
//   HTMLや XMLのタグブロックとして <タグ名> を開始文字とすると、</タグ名> の終
//   了タグを終了文字列にしたインデントブロックを挿入する。
//
// revised  inuuik  2011-08-04
// revised  inuuik  2012-09-02  s.NewLine(2) を自動インデントに対応調整
// - ------------------------ --------------------------------------------------
{
  /*
    文字列の特定文字を\x5cエスケープ
  */
  if (!String.prototype.esc_x5c) {
    String.prototype.esc_x5c = function() {
      var esc = "";
      var src = this.toString();
      for (var p = 0, ch = ""; p < src.length; p++) {
        ch = src.charAt(p);
        switch (ch) {
        case '"': ch = '\x5c"'; break; // \x5c\x22
        case '$': ch = '\x5c$'; break; // \x5c\x24
        case '&': ch = '\x5c&'; break; // \x5c\x26
        case "'": ch = "\x5c'"; break; // \x5c\x27
        case '(': ch = '\x5c('; break; // \x5c\x28
        case ')': ch = '\x5c)'; break; // \x5c\x29
        case '*': ch = '\x5c*'; break; // \x5c\x2a
        case '+': ch = '\x5c+'; break; // \x5c\x2b
        case '-': ch = '\x5c-'; break; // \x5c\x2d
        case '.': ch = '\x5c.'; break; // \x5c\x2e
        case '/': ch = '\x5c/'; break; // \x5c\x2f
        case '?': ch = '\x5c?'; break; // \x5c\x3f
        case '[': ch = '\x5c['; break; // \x5c\x5b
        case "\\": ch = "\x5c\\"; break; // \x5c\x5c
        case ']': ch = '\x5c]'; break; // \x5c\x5d
        case '^': ch = '\x5c^'; break; // \x5c\x5e
        case '|': ch = '\x5c|'; break; // \x5c\x7c
        }
        esc += ch;
      }
      return esc;
    };
  }
  /*
    文字列の全角数字と主な記号(空白と英字とｶﾅと記号を除く)を半角に変換
    引数を true にすると一致のテストのみして結果を論理値で返す
  */
  if (!String.prototype.toHan_s) {
    String.prototype.toHan_s = function(isTest) {
      function conv_han_s(str, p1, offset, s) {
        var cnv = "";
        var src = p1;
        for (var p = 0, ch = ""; p < src.length; p++) {
          ch = src.charAt(p);
          switch (ch) {
//          case "＼": ch = "＼"; break; // 例外対応 \xff3c を 無変換 本来は \x5c (\)
          case "￥": ch = "\\"; break; // 例外対応 \xffe5 を \x5c (\) 、本来は \xff3c (バックスラッシュ)
          default:
            ch = String.fromCharCode(ch.charCodeAt(0) - 0xfee0); break;
          }
          cnv += ch;
        }
        return cnv;
      }
//      var re_han_s = /([！--～￥]+)/g;
//      var re_han_s = /([！-［］-～￥]+)/g;
      var re_han_s = /([！-＠［］-｀｛-～￥]+)/g;
      if (! isTest) {
        return this.toString().replace(re_han_s, conv_han_s);
      }
      else {
        return re_han_s.test(this.toString());
      }
    };
  }
  /*
    文字列の半角数字と主な記号(空白と英字とカナと記号を除く)を全角に変換
    引数を true にすると一致のテストのみして結果を論理値で返す
  */
  if (!String.prototype.toZen_s) {
    String.prototype.toZen_s = function(isTest) {
      function conv_zen_s(str, p1, offset, s) {
        var cnv = "";
        var src = p1;
        for (var p = 0, ch = ""; p < src.length; p++) {
          ch = src.charAt(p);
          switch (ch) {
//          case "＼": ch = "＼"; break; // 例外対応 \xff3c を 無変換 本来は \x5c (\)
          case "\\": ch = "￥"; break; // 例外対応 \x5c (\) を \xffe5 (￥) 、本来は \xff3c (バックスラッシュ)
          default:
            ch = String.fromCharCode(ch.charCodeAt(0) + 0xfee0); break;
          }
          cnv += ch;
        }
        return cnv;
      }
//      var re_zen_s = /([!-~\\]+)/g;
      var re_zen_s = /([!-@\[\]-`{-~\\]+)/g;  // }
      if (! isTest) {
        return this.toString().replace(re_zen_s, conv_zen_s);
      }
      else {
        return re_zen_s.test(this.toString());
      }
    };
  }

  var s = document.selection;
  var x = s.GetActivePointX(mePosLogical);
  var y = s.GetActivePointY(mePosLogical);  // タブの操作は論理行で
  var tx = s.GetTopPointX(mePosLogical);
  var ty = s.GetTopPointY(mePosLogical);
  var bx = s.GetBottomPointX(mePosLogical);
  var by = s.GetBottomPointY(mePosLogical);
  var t = "";

//  Redraw = false;
  if (!s.IsEmpty) {  // 選択範囲を最終行末まで保存
    s.SetAnchorPoint(mePosLogical, tx, ty);
    s.SetActivePoint(mePosLogical, bx, by, true);
    s.EndOfLine(true, mePosLogical);
    t = s.Text.replace(/^[ \t\u3000\xa0]+/, "").replace(/\n$/, "");  // カーソル前空白と続く改行、最終改行
    s.Delete();  // 選択範囲があれば削除
  }
  s.SetActivePoint(mePosLogical, tx, ty, false);
  s.StartOfLine(true, mePosLogical);  // カーソルより前で開始文字列を探す
  var lp = s.Text.replace(/^.*[\s\u3000\xa0]+/, "");  // left parenthesis
  var rp = "";  // right parenthesis
  if (/[1-9][0-9]*$/.test(lp)) {  // 特殊動作 数字で開始すると終了文字列が連番
    rp = lp.replace(/[1-9][0-9]*$/, (parseInt(lp, 10) + 1).toString());
    rpo = ((rpl = rp.length - lp.length) > 0 ? rp.substr(0, rpl).replace(/^0+/, "") : "");
    rp = rpo + rp.substr(rpl);
    lp = "";
  }
  else if (/[１-９][０-９]*$/.test(lp)) {  // 特殊動作 全角数字で開始すると終了文字列が連番
    rp = lp.replace(/[１-９][０-９]*$/, (parseInt(lp.toHan_s(), 10) + 1).toString().toZen_s());
    rpo = ((rpl = rp.length - lp.length) > 0 ? rp.substr(0, rpl).replace(/^０+/, "") : "");
    rp = rpo + rp.substr(rpl);
    lp = "";
  }
  else if (/(?:<+[^<>\/]>+$)|(?:<+[^<>\/][^<>]*[^<>\/]>+$)|<+>+$/.test(s.Text)) {  // 特殊動作 タグ(単一タグを除く)
    rp = (lp = s.Text).replace(/(?:.*?(<+)([^ <>]*) ?[^<>]*(>+)$)|(<+)(>+)$/, "$1$4\/$2$3$5");
    lp = "";
  }
  else {  // 通常動作 すでに直前にある開始文字列から終了文字列を判定
    switch (lp) {
    case "{": lp = ""; rp = "}"; break;
    case "(": lp = ""; rp = ")"; break;
    case "[": lp = ""; rp = "]"; break;
    case "<": lp = ""; rp = ">"; break;
    case "begin": lp = ""; rp = "end;"; break;
    case "｛": lp = ""; rp = "｝"; break;
    case "（": lp = ""; rp = "）"; break;
    case "［": lp = ""; rp = "］"; break;
    case "＜": lp = ""; rp = "＞"; break;
    case "≪": lp = ""; rp = "≫"; break;
    case "「": lp = ""; rp = "」"; break;
    case "『": lp = ""; rp = "』"; break;
    case "〈": lp = ""; rp = "〉"; break;
    case "《": lp = ""; rp = "》"; break;
    case "【": lp = ""; rp = "】"; break;
    case "〔": lp = ""; rp = "〕"; break;
    case "<?php": lp = ""; rp = "?>"; break;
    case "/*": lp = ""; rp = "*/"; break;
    case "=pod": lp = ""; rp = "=cut"; break;
    case ">": lp = ""; rp = "</ >"; break;
    case "<!--": lp = ""; rp = "-->"; break;
    case "{-": lp = ""; rp = "-}"; break;
    case "{{": lp = ""; rp = "}}"; break;
    case "((": lp = ""; rp = "))"; break;
    case "[[": lp = ""; rp = "]]"; break;
    case "<<": lp = ""; rp = ">>"; break;
    default: lp = "{"; rp = "}"; break;  // 通常動作 開始文字列と終了文字列に { } の対を使用
    }
  }
  s.SetActivePoint(mePosLogical, tx, ty, false);
  s.Text = lp;  // ブロックの開始文字列
//  s.LineOpen(false);  // ←折り返し表示をしていると挿入位置を上方向に誤る
  // 現在行の下にカーソル桁位置以降の文字列を含む新しい行を挿入
  s.NewLine(1);
  s.StartOfLine(true, mePosLogical);
  if (!s.IsEmpty) {
    s.Text = "";
  }
  s.NewLine(1);
//  s.LineUp(false, 1);  // ←mePosLogicalとの併用だと分割表示で予期の動作をしない
  s.SetActivePoint(mePosLogical, 1, (s.GetActivePointY(mePosLogical) - 1), false);
  // タブの長さを知る
  s.Text = "\t";
  var i = s.GetActivePointX(mePosLogical);  // タブ１つ幅の桁数
  s.StartOfLine(true, mePosLogical);
  s.Untabify();
  var ii = s.Text;  // タブ１つ幅の半角空白
  s.Delete();
  if (ty > 1) {  // 1行目でなければ上の行で目標の桁位置を見る
//    s.LineUp(false, 1);  // ←mePosLogicalとの併用だと分割表示で予期の動作をしない
//    s.StartOfLine(false, mePosLogical);
    s.SetActivePoint(mePosLogical, 1, (s.GetActivePointY(mePosLogical) - 1), false);
    s.EndOfLine(true, mePosLogical);
    switch (s.Text.slice(0, 1)) {
    case " ":
    case "\t":
    case "\u3000":
    case ">":  // \x3e citation
    case "/":  // \x2f comment // c,c++,c#,JavaScript,php,Delphi
    case ";":  // \x3b comment ;  HSP,Lisp,Scheme,xyzzy
    case "#":  // \x23 comment #  perl,make,Ruby,MySQL
    case "!":  // \x21 comment !  gasp
    case "'":  // \x27 comment '  vb,vba,basic
    case "*":  // \x2a comment *  cobol
    case "-":  // \x2d comment -- SQL
    case "%":  // \x25 comment %  LilyPond
      // 行頭空白そのまま
      var il = s.Text.replace(/(^[\s\u3000\xa0]*[\s\u3000\xa0\x3e\x2f\x3b\x23\x21\x27\x2a\x2d\x25]{1,2}[\s\u3000\xa0]*).*$/,"$1");
      il = il.replace(/\x2f\x2a|\x2a\x2f/, (rp === "\x2a\x2f" ? "" : "  "));  // /* */ このブロックを除外、生成に対応
      // タブ１つ幅を加えるときに使う文字を行頭空白によって変更
      switch (il.slice(0, 1)) {
      case "\t": ii = "\t"; break;  // 行頭がハードタブならこれで追加
      case "\u3000": ii = ii.replace(/  /g, "\u3000"); break;  // 行頭が全角空白ならこれで追加
      }
      break;
    case (s.Text.slice(0, 3).toLowerCase() === "rem" ? s.Text.slice(0, 1) : "rem"):  // \x52|\x72 comment REM|rem bat
      var il = s.Text.replace(/(^[Rr][Ee][Mm][\s\u3000\xa0]{1,2}[\s\u3000\xa0]*).*$/,"$1");
      break;
    default:
      il = "";
      break;
    }
//    s.LineDown(false, 1);  // ←mePosLogicalとの併用だと分割表示で予期の動作をしない
    s.SetActivePoint(mePosLogical, 1, (s.GetActivePointY(mePosLogical) + 1), false);
  }
  else {  // 1行目のときは下の行で目標の桁位置を見る
//    s.LineDown(false, 1);  // ←mePosLogicalとの併用だと分割表示で予期の動作をしない
//    s.StartOfLine(false, mePosLogical);
    s.SetActivePoint(mePosLogical, 1, (s.GetActivePointY(mePosLogical) + 1), false);
    s.EndOfLine(true, mePosLogical);
    switch (s.Text.slice(0, 1)) {
    case " ":
    case "\t":
    case "\u3000":
    case ">":  // \x3e citation
    case "/":  // \x2f comment // c,c++,c#,JavaScript,php,Delphi
    case ";":  // \x3b comment ;  HSP,Lisp,Scheme,xyzzy
    case "#":  // \x23 comment #  perl,make,Ruby,MySQL
    case "!":  // \x21 comment !  gasp
    case "'":  // \x27 comment '  vb,vba,basic
    case "*":  // \x2a comment *  cobol
    case "-":  // \x2a comment -- SQL
    case "%":  // \x25 comment %  LilyPond
      // 行頭空白そのまま
      var il = s.Text.replace(/(^[\s\u3000\xa0]*[\s\u3000\xa0\x3e\x2f\x3b\x23\x21\x27\x2a\x2d\x25]{1,2}[\s\u3000\xa0]*).*$/,"$1");
      il = il.replace(/\x2f\x2a|\x2a\x2f/, (rp === "\x2a\x2f" ? "" : "  "));  // /* */ このブロックを除外、生成に対応
      // タブ１つ幅を加えるときに使う文字を行頭空白によって変更
      switch (il.slice(0, 1)) {
      case "\t": ii = "\t"; break;  // 行頭がハードタブならこれで追加
      case "\u3000": ii = ii.replace(/  /g, "\u3000"); break;  // 行頭が全角空白ならこれで追加
      }
      break;  
    case (s.Text.slice(0, 3).toLowerCase() === "rem" ? s.Text.slice(0, 1) : "rem"):  // \x52|\x72 comment REM|rem bat
      var il = s.Text.replace(/(^[Rr][Ee][Mm][\s\u3000\xa0]{1,2}[\s\u3000\xa0]*).*$/,"$1");
      break;
    default:
      il = "";
      break;
    }
//    s.LineUp(false, 1);  // ←mePosLogicalとの併用だと分割表示で予期の動作をしない
    s.SetActivePoint(mePosLogical, 1, (s.GetActivePointY(mePosLogical) - 1), false);
  }
// 新しい行の行頭を形作る
  s.Text = il;  // 上行と同じ行頭空白に揃うよう右に進む
  s.EndOfLine(false, mePosLogical);
  s.CharRight(true, 1);
  s.Delete();
  s.Text = rp;  // ブロックの終了文字列
//  s.LineOpen(true);  // ←折り返し表示をしていると挿入位置を上方向に誤る
  // カーソル桁位置に関わらず現在行を下にずらし(上に)行を挿入
  s.StartOfLine(false, mePosLogical);
  s.NewLine(1);
//  s.LineUp(false, 1);  // ←mePosLogicalとの併用だと分割表示で予期の動作をしない
  y = s.GetActivePointY(mePosLogical) - 1;
  s.SetActivePoint(mePosLogical, 1, y, false);
// 保存した選択範囲があれば挿入
  if (t > "") {
    var re_one = new RegExp("^([^\n]*?)([ \t\u3000\xa0]*" + rp.esc_x5c() + "[ \t\u3000\xa0]*)(?=\n|$)");  // one line text
    if (re_one.test(t)) { t = t.replace(re_one, "$1"); }
    t = (t.charAt(0) === "\n" ? "" : il + ii) + t.replace(/\n/g, "\n" + ii).replace(/^\n/, "") + "\n";
  }
  s.Text = t;
// 新しい行の行頭を形作る
  s.Text = il + ii;  // 上行と同じ行頭空白にタブ１つ幅を加えて右に進む
  s.EndOfLine(false, mePosLogical);
  Redraw = true;
}
// - ------------------------ --------------------------------------------------
</source>