参照
怎样让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)))))))))