org-mode将org发布为html时＂Footnotes＂翻译为＂参考文献＂

参照
怎样让org-mode导出html的toc标题为“目录” – 猎数博客
的示例，创建一个＂emacs-init-org-mode＂模式，当进入该模式时，修改＂org-mode＂的一些配置：

(define-derived-mode emacs-init-org-mode org-mode "Org+"
  "org-mode 如何输出[1]? - Org-mode - Emacs 中文网: https://emacs-china.org/t/topic/6335
一个基于org-mode的Emacs主模式。
只在将org发布为html时＂Footnotes＂才翻译为＂参考文献＂，而`org-footnote-action' 添加的标题保持为默认值。
如果要让添加的标题为＂参考文献＂而不是＂Footnotes＂，就需要修改`org-footnote-section'的值。"
  (dolist (config '((org-export-default-language "references")
                    (org-html-footnotes-section "<div id=\"footnotes\">
<h2 class=\"footnotes\">%s</h2>
<div id=\"text-footnotes\">
%s
</div>
</div>")))
    (set (make-local-variable
          (car config))
         (cadr config)))
  (when (boundp 'org-export-dictionary)
    (set (make-local-variable 'org-export-dictionary)
         (let ((footnote-section "参考文献"))
           (cl-labels ((unicode
                        (string)
                        "汉字转unicode|unicode转汉字|unicode编码转换器: http://www.bangnishouji.com/tools/chtounicode.html"
                        (mapconcat (function concat)
                                   (cl-mapcar (lambda (string)
                                                (format "&#%s;"
                                                        (string-to-char string)))
                                              (remove ""
                                                      (split-string string "")))
                                   "")))
             (cl-concatenate
              'list
              (cl-remove (assoc "Footnotes" org-export-dictionary)
                         org-export-dictionary)
              `(("Footnotes"
                 (,org-export-default-language
                  :html ,(unicode footnote-section)
                  :utf-8 ,footnote-section)))))))))