字下げ・字上げ

この機能はVer 3.5.6でMery本体に実装されたため（何も選択していないとき、Shift + Tab キーで逆インデント）、それ以降のバージョンを使用しているユーザーはこのマクロを導入する必要はありません。

概要

論理行単位で字下げ・字上げします。

インデントには任意の文字列を設定できます。※初期設定は半角空白2個です。

更新履歴

2019/06/01

• 字下げ・字上げした次の行に変更行の印がつかないようにした。
  • 末尾の改行（次の行頭）を範囲に含めず書き換えるように変更。
• with 文を使用せず変数化した（他の自作マクロに合わせた）。

2019/04/12

• (字下げ) Quit() → break ラベル文に変更。

2015/02/14

• (字上げ) 「インデントの定義」に正規表現の特殊文字があると誤動作する不具合を修正。
• 矩形選択（始点or終点が左下かつ論理行頭）時、下端の行が範囲から漏れる不具合を修正。

2014/02/09

• 初版公開。

字下げ (インデント)

• 複数行選択時 (選択範囲が2行以上) は字下げします。
  単一行選択時 (選択範囲が1行以内) または非選択時はタブ文字を挿入します。
  ※選択範囲の行数はステータスバーの「xx文字 (xx行) 選択」の部分で判断してください。
• 空行 (改行のみの行) は初期状態では字下げしません。
• 「Tab」キーなどに割り当ててご利用ください。

ソースコード

//■字下げ(インデント)
//　2014/02/09-2019/06/01
//・論理行単位で字下げする。空行は字下げしない。非選択時/単行選択時はタブ挿入。

//■インデントの定義 ●初期値="  "
var INDENT = "  ";

quit: {
var Sel = Document.Selection;
if (Sel.GetTopPointY(mePosView)===Sel.GetBottomPointY(mePosView)) {
  Sel.Text = "\t"; break quit; //非選択時/単行選択時はタブ挿入して終了
}
var ty = Sel.GetTopPointY(mePosLogical);
var by = Sel.GetBottomPointY(mePosLogical);
var bx = Sel.GetBottomPointX(mePosLogical);
var nn =(Sel.Text.match(/\n/g)||[]).length;
if (bx===1 && nn<=by-ty && nn) by--; //末尾改行対策
Sel.SetActivePoint(mePosLogical, 1, by);
Sel.EndOfLine(false, mePosLogical);
Sel.SetAnchorPoint(mePosLogical, 1, ty);
Sel.Text = Sel.Text.replace(/^(?!$)/gm,INDENT);
Sel.SetActivePoint(mePosLogical, 1, by+1);
Sel.SetAnchorPoint(mePosLogical, 1, ty);
}

字上げ (アンインデント)

• 単一行選択時 (選択範囲が1行以内) または非選択時でも字上げします。
• 「Shift + Tab」キーなどに割り当ててご利用ください。

ソースコード

//■字上げ(アンインデント)
//　2014/02/09-2019/06/01
//・論理行単位で字上げする。非選択時/単行選択時でも字上げする。

//■インデントの定義 ●初期値="  "
var INDENT = "  ";

var Sel = Document.Selection;
var ty = Sel.GetTopPointY(mePosLogical);
var by = Sel.GetBottomPointY(mePosLogical);
var bx = Sel.GetBottomPointX(mePosLogical);
var nn =(Sel.Text.match(/\n/g)||[]).length;
if (bx===1 && nn<=by-ty && nn) by--; //末尾改行対策
Sel.SetActivePoint(mePosLogical, 1, by);
Sel.EndOfLine(false, mePosLogical);
Sel.SetAnchorPoint(mePosLogical, 1, ty);
var pat = "^"+ INDENT.replace(/[$()*+.?\[\\\]^{|}]/g,"\\$&");
Sel.Text = Sel.Text.replace(new RegExp(pat,"gm"),"");
Sel.SetActivePoint(mePosLogical, 1, by+1);
Sel.SetAnchorPoint(mePosLogical, 1, ty);