朝顔日記

xyzzy で編集中の html ファイルのカーソルのある行のタグを一気に削除できると便利だなと思い、某掲示板で尋ねてみたところ、自分で作るようにとのことだったので作ってみました。

;;カーソル行のタグを削除
(defun del-line-tag ()
(interactive "*")
(save-excursion
  (save-restriction
  (narrow-to-region (progn (goto-eol) (point)) (progn (goto-bol) (point)))
    (goto-char (point-min))
    (replace-buffer "<[^<]+>" "" :regexp t))))
(require "html+-mode")
(define-key ed::*html+-mode-map* '(#\C-c #\d) 'del-line-tag)

html+-mode の時に、C-c d すると、カーソルのある行のタグがすべて削除されるはずです。多分。:p)

(require "html+-mode") のところですが、以前マクアプ用 lisp で、tomoya さんに尋ねられてよくわからなかったんですが、xyzzy本 を読んだら、そこらあたりのことが説明されていて大変勉強になったことを付け加えておきます。