org-mode将org发布为html时"Footnotes"翻译为"参考文献"steemCreated with Sketch.

in emacs •  7 years ago 

参照
怎样让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)))))))))
Authors get paid when people like you upvote their post.
If you enjoyed what you read here, create your account today and start earning FREE STEEM!