是否有用于 html 转义的 Emacs 包？答案

【问题标题】：Is there an Emacs package for html escaping?是否有用于 html 转义的 Emacs 包？
【发布时间】：2014-06-06 15:06:17
【问题描述】：

例子：

<p>Um diese App verwenden zu können, benötigen Sie JavaScript.</p>

应替换为：

<p>Um diese App verwenden zu k&ouml;nnen, ben&ouml;tigen Sie JavaScript.</p>

是否存在在区域上执行这种替换的现有函数或包？

【问题讨论】：

快速谷歌搜索有点令人沮丧。 HTML 中有大量代码可以解码实体，但反方向的代码很少。 w3m.el 包含一个实体数据库，作为起点应该很方便；我猜各种 HTML 和 XML 编辑模式都会包含类似的内容。
如果您不需要命名实体，用(format "&#%d;" (int-to-string (string-to-char char)))替换[^ -~]应该是轻而易举的事。
为什么要这样做？命名实体将使它无效的 XHTML，如果这恰好是一个问题。如今，unicode 可以毫无问题地在绝大多数工具链中来回切换。
我拼凑了一个愚蠢的尝试，我无法开始工作。它只能支持 Latin-1，因为这是我用作平台的 sgml-mode.el 中可用的内容。也许其他人可以从我离开的地方继续并完成它。显然，我不太了解字符表。例如，它将"¤" 变成"&dollar;"，这显然是不正确的。 pastebin.com/cVQUTS9s
@torazaburo 好吧，在我的工作场所，我们有使用 ASCII 的编码标准。总的来说，我认为使用 JSP 是合理的，因为它使事情变得简单。否则，总是有可能混淆 ISO-8859-1 和 UTF8，这可能会导致细微的错误。无论如何，你有一个观点：stackoverflow.com/questions/25132/…

标签： html emacs

【解决方案1】：

在cmets之后编辑，谢谢。

在此处下载文件 html2uml.el：

http://bazaar.launchpad.net/~a-roehler/s-x-emacs-werkstatt/trunk/view/head:/html2uml.el

请在此处提交报告 WRT 错误或缺少实体：

https://bugs.launchpad.net/s-x-emacs-werkstatt

现在的代码：

(defvar ar-html2uml
  '(
    ("&nbsp;" " ")
    ("&iexcl;" "¡")
    ("&cent;" "¢")
    ("&pound;" "£")
    ("&curren;" "\x{00A4}")
    ("&yen;" "¥")
    ("&brvbar;" "\x{00A6}")
    ("&sect;" "§")
    ("&uml;" "\x{00A8}")
    ("&copy;" "©")
    ("&ordf;" "ª")
    ("&laquo;" "«")
    ("&not;" "¬")
    ("&shy;" "")
    ("&reg;" "®")
    ("&macr;" "¯")
    ("&deg;" "°")
    ("&plusmn;" "±")
    ("&sup2;" "²")
    ("&sup3;" "³")
    ("&acute;" "\x{00B4}")
    ("&micro;" "µ")
    ("&para;" "¶")
    ("&middot;" "·")
    ("&cedil;" "\x{00B8}")
    ("&sup1;" "¹")
    ("&ordm;" "º")
    ("&raquo;" "»")
    ("&frac14;" "\x{00BC}")
    ("&frac12;" "\x{00BD}")
    ("&frac34;" "\x{00BE}")
    ("&iquest;" "¿")
    ("&Agrave;" "À")
    ("&Aacute;" "Á")
    ("&Acirc;" "Â")
    ("&Atilde;" "Ã")
    ("&Auml;" "Ä")
    ("&Aring;" "Å")
    ("&AElig;" "Æ")
    ("&Ccedil;" "Ç")
    ("&Egrave;" "È")
    ("&Eacute;" "É")
    ("&Ecirc;" "Ê")
    ("&Euml;" "Ë")
    ("&Igrave;" "Ì")
    ("&Iacute;" "Í")
    ("&Icirc;" "Î")
    ("&Iuml;" "Ï")
    ("&ETH;" "Ð")
    ("&Ntilde;" "Ñ")
    ("&Ograve;" "Ò")
    ("&Oacute;" "Ó")
    ("&Ocirc;" "Ô")
    ("&Otilde;" "Õ")
    ("&Ouml;" "Ö")
    ("&times;" "×")
    ("&Oslash;" "Ø")
    ("&Ugrave;" "Ù")
    ("&Uacute;" "Ú")
    ("&Ucirc;" "Û")
    ("&Uuml;" "Ü")
    ("&Yacute;" "Ý")
    ("&THORN;" "Þ")
    ("&szlig;" "ß")
    ("&agrave;" "à")
    ("&aacute;" "á")
    ("&acirc;" "â")
    ("&atilde;" "ã")
    ("&auml;" "ä")
    ("&aring;" "å")
    ("&aelig;" "æ")
    ("&ccedil;" "ç")
    ("&egrave;" "è")
    ("&eacute;" "é")
    ("&ecirc;" "ê")
    ("&euml;" "ë")
    ("&igrave;" "ì")
    ("&iacute;" "í")
    ("&icirc;" "î")
    ("&iuml;" "ï")
    ("&eth;" "ð")
    ("&ntilde;" "ñ")
    ("&ograve;" "ò")
    ("&oacute;" "ó")
    ("&ocirc;" "ô")
    ("&otilde;" "õ")
    ("&ouml;" "ö")
    ("\&Ouml;" "Ö")
    ("&divide;" "÷")
    ("&oslash;" "ø")
    ("&ugrave;" "ù")
    ("&uacute;" "ú")
    ("&ucirc;" "û")
    ("&uuml;" "ü")
    ("&yacute;" "ý")
    ("&thorn;" "þ")
    ("&yuml;" "ÿ")
    ))

(defun ar-uml2html ()
  "Translate chars into html entities"
  (interactive "*")
  (let ((liste ar-html2uml)
        case-fold-search erg)
    (dolist (ele liste)
      (goto-char (point-min))
      (while (search-forward (cadr ele) nil t 1)
        (setq erg (car ele))
        ;; Replacing with code starting from & upcases
        ;; Emacs bug?
        (replace-match "")
        (insert erg)))))

(defun ar-html2uml ()
  "Translate html entities into text"
  (interactive "*")
  (let ((liste ar-html2uml))
    (dolist (ele liste)
      (goto-char (point-min))
      (while (search-forward (car ele) nil t 1)
        (replace-match "")
        (insert (cadr ele))))))

【讨论】：

这会执行与 OP 请求相反的映射。
@PhilippClaßen 根据要求提供了反向命令映射。区分大小写已经列出，但替换没有按预期工作。已修复 - 请参阅源代码中的评论。