mieki256's diary

正規表現部分を書き換えるだけで色々処理がかけるので便利そうだなと。とりあえず、

(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)