ox-org: Obey to `org-display-custom-times'

* lisp/ox-org.el (org-org-timestamp): New function.
(org): Use new function.
This commit is contained in:
Nicolas Goaziou 2018-01-08 15:39:01 +01:00
parent c0a1fb4138
commit 857425e184
1 changed files with 5 additions and 1 deletions

View File

@ -96,7 +96,7 @@ setting of `org-html-htmlize-output-type' is `css'."
(table-cell . org-org-identity)
(table-row . org-org-identity)
(target . org-org-identity)
(timestamp . org-org-identity)
(timestamp . org-org-timestamp)
(underline . org-org-identity)
(verbatim . org-org-identity)
(verse-block . org-org-identity))
@ -206,6 +206,10 @@ as a communication channel."
(format "#+CREATOR: %s\n" (plist-get info :creator)))
contents))
(defun org-org-timestamp (timestamp _contents _info)
"Transcode a TIMESTAMP object to custom format or back into Org syntax."
(org-timestamp-translate timestamp))
(defun org-org-section (section contents info)
"Transcode SECTION element back into Org syntax.
CONTENTS is the contents of the section. INFO is a plist used as