跳过代码块全文谷歌翻译的方法

Emacs-Lisp
1
  • 谷歌浏览器提供全文翻译，可是连代码一起翻译了，网上搜到只要给代码块添加 notranslate 的类就可以跳过了
  • 对于 html 文档或者是 org 导出的 html 文档可以用 js 写个脚本或者直接查找替换
  • 对于 .el 结尾的文档或者 info 如何跳过代码块呢? 我的办法是直接在每一对最外层的 () 再包裹一层标签 <div class='notranslate'> 整个文档再裹一层 <pre> 另外文件后缀名改成 html
  • 把修改好的文档放进一个文件夹里用 python -m http.server 就可以在浏览器内查看文档了
(defun add-notranslate ()
  (interactive)
  (progn
    (goto-char (point-min))
    (insert "<pre>")
    (while (search-forward "\(")
      (progn
        (backward-char)
        (insert "<div class='notranslate'>")
        (evil-jump-item)
        (forward-char)
        (insert "</div>")))
    (goto-char (point-max))
    (evil-open-below)
    (insert "</pre>")))

(defun add-notranslate2 ()
  (interactive)
  (progn
    (goto-char (point-min))
    (while (search-forward "class=\"src")
      (replace-match "class=\"src notranslate"))))
1 个赞