2005/11/18(金) [n年前の日記]
#5 [xyzzy] _xyzzy の音 - 行頭行末のホワイトスペースとか空行とかを削除
正規表現部分を書き換えるだけで色々処理がかけるので便利そうだなと。とりあえず、
(replace-regexp "$" "~" t))と書き換えて、hnf の改行を行末に追加するような関数を ~/.xyzzy に追加してみたり。
;; add-eol-hnf-lf-selection 行末にhnfの改行を追加
;; add-eol-hnf-lf
(defun add-eol-hnf-lf-selection ()
(interactive)
(exec-selection 'add-eol-hnf-lf
"バッファ全体の行末にhnfの改行を追加。"))
(defun add-eol-hnf-lf ()
(goto-char (point-min))
(replace-regexp "$" "~" t))
;; hnf-mode における C-c l に設定
(define-key *hnf-mode-map* '(#\C-c #\l) 'add-eol-hnf-lf-selection)
[ ツッコむ ]
以上です。