如何在 Emacs 中折叠 html 标签？

Question

我正在使用 hs-minor-mode 和 fold-dwim 模式。

我通过设置变量 hs-special-modes-alist 在下面添加了正则表达式以匹配 html 标签：

(html-mode "<\([A-Za-z][A-Za-z0-9]*\)[^>]*>.*?" "</\1>" "-->" nil nil)
;; Format: (MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC)

但是当我在 html 文件中使用它（使用命令 fold-dwim-toggle.）时没有效果。

---

这是我的 .emacs 文件中的相关部分：

;; hideshow
(setq hs-special-modes-alist
  (mapcar 'purecopy
  '((c-mode "{" "}" "/[*/]" nil nil)
    (c++-mode "{" "}" "/[*/]" nil nil)
    (bibtex-mode ("@\\S(*\\(\\s(\\)" 1))
    (java-mode "{" "}" "/[*/]" nil nil)
    (js-mode "{" "}" "/[*/]" nil)
    ;; (html-mode "<!-- {{{ " "<!-- }}} -->" " -->" nil t)
    (html-mode "<\([A-Za-z][A-Za-z0-9]*\)[^>]*>.*?"  "</\1>" "-->" nil nil) ;gw: self edited, see blw ref:
    ;; http://www.regular-expressions.info/examples.html
    )))

Answer 1

我不熟悉hs-special-modes-alist。但是简单地看一下源代码，我没有看到任何迹象表明END 模式可以引用BEGIN 模式的子组，我假设这就是您尝试使用"</\1>" 所做的事情。我猜您希望 \1 被 BEGIN 模式的第一个子组匹配的任何内容替换。

代码中hs-special-modes-alist 的示例都没有使用子组匹配号（例如\1）。文档说END 本身需要是一个正则表达式。大概它独立于匹配开头的START匹配结尾。

文档确实提到START 本身可以“是(COMPLEX-START MDATA-SELECTOR) 形式的列表，其中COMPLEX-START 是一个带有多个部分的正则表达式，并且 MDATA-SELECTOR 一个整数，指定哪个子匹配是正确的 调整点的位置，在调用hs-forward-sexp-func之前。

我不认为这与您想要的直接对应，但至少它表明使用子组匹配。也许您可以使用它来匹配开始和结束标签。我没有进一步查看代码，例如查看hs-forward-sexp-func 的使用位置和方式。

另一方面，您通常需要在 Lisp 字符串中使用双反斜杠。所以如果你想要\1，你可能需要使用"</\\1>"。同样，对于 \( - 使用 \\( 等。

也许这会让你更接近你想要的。

（注意，顺便说一句，正则表达式是尝试解析 HTML 代码等内容的糟糕方法。）

Answer 2

我在这里回答了这个问题：Does emacs offer hide show for html mode，但又来了。

我为 mhtml-mode 编写了这个，它工作得很好，它可以按标签折叠 HTML 以及嵌入的 CSS 和 JS。只需将其添加到您的 emacs 配置文件中，您就可以开始使用了。

;; When called this automatically detects the submode at the current location.
;; It will then either forward to end of tag(HTML) or end of code block(JS/CSS).
;; This will be passed to hs-minor-mode to properly navigate and fold the code.
(defun mhtml-forward (arg)
  (interactive "P")
  (pcase (get-text-property (point) 'mhtml-submode)
    ('nil (sgml-skip-tag-forward 1))
    (submode (forward-sexp))))

;; Adds the tag and curly-brace detection to hs-minor-mode for mhtml.
(add-to-list 'hs-special-modes-alist
             '(mhtml-mode
               "{\\|<[^/>]+?"
               "}\\|</[^/>]*[^/]>"
               "<!--"
               mhtml-forward
               nil))

正则表达式分解：

• "{\\|<[^/>]+?"：匹配{ 或任何打开的HTML 标记。它匹配到但不包括在开始标记中的结束 >。这允许将 <script> 和 <style> 标签视为 HTML 标签，而不是 JS 或 CSS。

• "}\\|</[^/>]*[^/]>"：匹配} 或结束标记。