mieki256's diary

Emacs系に近いWindows専用のテキストエディタ xyzzy で、選択範囲内の空白文字を削除したい。

以下のページを参考にして、~/.xyzzy に追加してみた。Windows10 x64 22H2 + xyzzy 0.2.2.253 で動作確認した。

_xyzzy の音 - 行頭行末のホワイトスペースとか空行とかを削除

;; ----------------------------------------
;; 選択範囲(セレクション) or バッファ全体の空白を削除

(defun delete-spaces-in-selection ()
  (interactive)
  (exec-selection 'delete-spaces
                  "バッファ全体の空白を削除しますよ。"))

(defun delete-spaces ()
  (goto-char (point-min))
  (replace-regexp "[ \t]" "" t))

(global-set-key '(#\C-z #\d) 'delete-spaces-in-selection)

;; --------------------------------------------------------------------
; selection に対する処理を行う（下位関数）
;  selection があれば selection に対して、なければ buffer に対して処理を行う。
;  str を指定すると、buffer に対して処理をする場合に、
;  問い合わせ（str を表示）をしてから処理を実行する。

(defun exec-selection (func &optional str)
  (if (get-selection-type)
      (selection-start-end (start end)
        (save-excursion
          (save-restriction
            (narrow-to-region start end)
            (funcall func)
            (widen))))
    (save-excursion
      (if str
          (and (yes-or-no-p str)(funcall func))
        (funcall func)))))

既に機能として持ってそうな気もするのだけど…。

余談。Google Gemini 2.0 に、こういう目的を果たすコードを作成してくれとお願いしたら、存在しない関数を使いまくった動かないコードを自信満々な感じで出してきた。もしかすると xyzzy を Emacs と勘違いしてる…？ 今のAIは、マイナーな言語/アプリについてはまだまだ弱いのかも。

今朝起きたら、腰に痛みが。一体何で痛めたのだろう…。

雪が積もっている中、犬の散歩をしているけれど、雪道を歩く際に足元が不安定だから、足腰に妙な力を入れてしまったのではないか…。それとも、灯油タンクを運ぶ際に腰を痛めたのか…。

詳細はGRPでメモ。