html - 如何在 Emacs 中删除 HTML 标签的内容

Question

Vim 有一个很棒的功能，允许用户删除标签、引号内等内容。例如，在以下情况下:

<h1>  Cursor is here -> █ <- :)  </h1>

可以输入d i t (“delete in tag”)来删除<h1>的内容HTML 标记。

还有其他快捷方式，例如:

• d i ( 删除括号内的内容 ()
• d i " 删除双引号内的内容 "" .
• d i ' 删除单引号内的内容'' .

Emacs 是否存在类似的东西？

我知道 zap-to-char和 nXhtml 的 sgml-delete-tag ，但他们并没有完全按照我的意愿行事。

Answer 1

这段代码对你有用吗？

(defun sgml-delete-tagged-text ()
  "delete text between the tags that contain the current point"
  (interactive)
  (let ((b (point)))
    (sgml-skip-tag-backward 1)
    (when (not (eq b (point)))
      ;; moved somewhere, should be at front of a tag now
      (save-excursion 
        (forward-sexp 1)
        (setq b (point)))
      (sgml-skip-tag-forward 1)
      (backward-sexp 1)
      (delete-region b (point)))))