「少し便利な Undo/Redo」を編集中

このマクロは[https://www.haijin-boys.com/software/mery/mery-3-0-0#15 Mery Ver 3.0.0]で追加された「日本語入力の『元に戻す』を入力単位にする」および「『元に戻す』で変更していない状態まで戻したときに変更マーク (*) を消す」と同機能です。

作成経緯については[https://www.haijin-boys.com/discussions/2625 【要望】アンドゥ／リドゥ関連]を参照してください。

== 概要 ==
次の機能を実装した Undo/Redo です。
* 連続した入力・削除を一括で処理する
* 保存済みのデータと一致したときに保存済みマークを消す

== 注意事項 ==
マクロライブラリにある [[includeライブラリ]] を利用しています。このマクロの前にそちらを導入してください。

== オプション ==
{| class="wikitable"
!MaxLength
|処理対象とする最大文字数。無制限の場合はコメントアウト。処理が重い場合は小さい値に変更。
|-
!IsSequence
|連続した入力・削除を一括で処理する場合は true。
|}

== Undo ==
<syntaxhighlight lang="javascript" copy>
#title = "元に戻す"
#include "include/IO.js"
// Undo 時に保存済みファイルと比較し、一致するようなら保存済みフラグをオンにする

// 動作定義
var MaxLength = 150*1024;   // 処理対象最大文字数。動作が重い場合は小さい値に。無効にする場合はコメントアウト
var IsSequence = false;     // 連続した変更を一括で処理する

var d = Document;
var s = d.Selection;
var bt = d.Text;
var bp = s.GetActivePos();
d.Undo();

// 変更チェック
var at = d.Text;
if (bt == at) {
  Quit();
}

// サイズ制限
var MaxLength;
if (MaxLength != null && at.length > MaxLength) {
  Quit();
}

var t = d.FullName ? IO.LoadFromFile(d.FullName, d.Encoding) : null;

// 連続した変更をまとめる
var IsSequence;
if (IsSequence) {
  var ap = s.GetActivePos();
  var w = at.length - bt.length;
  var y = s.GetActivePointY(mePosLogical);
  if (Math.abs(w) == 1 && Math.abs(ap - bp) <= 1) {
    var ab = null;
    do {
      // 保存済み位置まで戻った場合はそこでひとまとめとする
      if (t === at) {
        d.Saved = true;
        Quit();
      }
      bt = at;
      bp = ap;
      ab = s.GetAnchorPos();
      d.Undo();
      at = d.Text;
      ap = s.GetActivePos();
    } while (at.length - bt.length == w && Math.abs(ap - bp) <= 1 && s.GetActivePointY(mePosLogical) == y);
    // 全て Redo しきった訳ではない場合は戻す
    if (bt != at) {
      d.Redo();
      s.SetAnchorPos(ab);
      s.SetActivePos(bp, true);
    }
  }
}

if (t === at) {
  d.Saved = true;
}
</syntaxhighlight>

== Redo ==
<syntaxhighlight lang="javascript" copy>
#title = "やり直し"
#include "include/IO.js"
// Redo 時に保存済みファイルと比較し、一致するようなら保存済みフラグをオンにする

// 動作定義
var MaxLength = 150*1024;   // 処理対象最大文字数。動作が重い場合は小さい値に。無効にする場合はコメントアウト
var IsSequence = false;     // 連続した変更を一括で処理する

var d = Document;
var s = d.Selection;
var bt = d.Text;
var bp = s.GetActivePos();
d.Redo();

// 変更チェック
var at = d.Text;
if (bt == at) {
  Quit();
}

// サイズ制限
var MaxLength;
if (MaxLength != null && at.length > MaxLength) {
  Quit();
}

var t = d.FullName ? IO.LoadFromFile(d.FullName, d.Encoding) : null;

// 連続した変更をまとめる
var IsSequence;
if (IsSequence) {
  var ap = s.GetActivePos();
  var w = at.length - bt.length;
  var y = s.GetActivePointY(mePosLogical);
  if (Math.abs(w) == 1 && Math.abs(ap - bp) <= 1) {
    var ab = null;
    do {
      // 保存済み位置まで戻った場合はそこでひとまとめとする
      if (t === at) {
        d.Saved = true;
        Quit();
      }
      bt = at;
      bp = ap;
      ab = s.GetAnchorPos();
      d.Redo();
      at = d.Text;
      ap = s.GetActivePos();
    } while (at.length - bt.length == w && Math.abs(ap - bp) <= 1 && s.GetActivePointY(mePosLogical) == y);
    // 全て Redo しきった訳ではない場合は戻す
    if (bt != at) {
      d.Undo();
      s.SetAnchorPos(ab);
      s.SetActivePos(bp, true);
    }
  }
}

if (t === at) {
  d.Saved = true;
}
</syntaxhighlight>