「非選択状態でも逆インデント」の版間の差分

提供: MeryWiki
ナビゲーションに移動 検索に移動
MSY-07 (トーク | 投稿記録)
ソースコードの整形
MSY-07 (トーク | 投稿記録)
with文を使用しないソースコードに修正
12行目: 12行目:
(function() {
(function() {
Redraw = false;
Redraw = false;
with(document.selection) {
var sel = document.selection;
var flg = isEmpty;
var flg = sel.IsEmpty;
if (flg) {
if (flg) {
var curPointX = GetActivePointX(mePosLogical);
var curPointX = sel.GetActivePointX(mePosLogical);
var curPointY = GetActivePointY(mePosLogical);
var curPointY = sel.GetActivePointY(mePosLogical);
EndOfLine(mePosLogical);
sel.EndOfLine(mePosLogical);
var endPointX = GetActivePointX(mePosLogical);
var endPointX = sel.GetActivePointX(mePosLogical);
SelectLine();
sel.SelectLine();
}
}
UnIndent();
sel.UnIndent();
if (flg) {
if (flg) {
var topchar = Text.charAt(0);
var topchar = sel.Text.charAt(0);
Collapse(meCollapseStart);
sel.Collapse(meCollapseStart);
EndOfLine(mePosLogical);
sel.EndOfLine(mePosLogical);
curPointX -= (endPointX - GetActivePointX(mePosLogical));
curPointX -= (endPointX - sel.GetActivePointX(mePosLogical));
SetActivePoint(mePosLogical, curPointX, curPointY, false);
sel.SetActivePoint(mePosLogical, curPointX, curPointY, false);
}
}
}
Redraw = true;
Redraw = true;
})();
})();
</syntaxhighlight>
</syntaxhighlight>

2025年1月6日 (月) 11:44時点における版

このマクロはMery Ver 3.5.6で追加された「何も選択していないとき、Shift + Tab キーで逆インデント」と同機能です。

概要

最終書き込み 2012/03/30 のちょっとクロさん!!!!!!!!!!!!!(要望) でユーケーさんが求めていた非選択状態での逆インデント。選択状態では標準機能の逆インデントを実行するので、Shift + Tab に割り当てできます。カーソルは実行時の文字位置(x位置ではなく)を維持します。

(ブログのコメント より転載)

ソースコード

#title = "非選択状態でも逆インデント"

(function() {
	Redraw = false;
	var sel = document.selection;
	var flg = sel.IsEmpty;
	if (flg) {
		var curPointX = sel.GetActivePointX(mePosLogical);
		var curPointY = sel.GetActivePointY(mePosLogical);
		sel.EndOfLine(mePosLogical);
		var endPointX = sel.GetActivePointX(mePosLogical);
		sel.SelectLine();
	}
	sel.UnIndent();
	if (flg) {
		var topchar = sel.Text.charAt(0);
		sel.Collapse(meCollapseStart);
		sel.EndOfLine(mePosLogical);
		curPointX -= (endPointX - sel.GetActivePointX(mePosLogical));
		sel.SetActivePoint(mePosLogical, curPointX, curPointY, false);
	}
	Redraw = true;
})();
スポンサーリンク