diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-01-08 15:39:01 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-01-08 15:39:01 +0100 |
| commit | 857425e18414ae068ffbf0e5a2d8050481094293 (patch) | |
| tree | d88a058c598558cb23ab82a2b5c995a9343a929b | |
| parent | c0a1fb4138115ace4b6f776fa264147f042e99e0 (diff) | |
| download | org-mode-857425e18414ae068ffbf0e5a2d8050481094293.tar.gz | |
ox-org: Obey to `org-display-custom-times'
* lisp/ox-org.el (org-org-timestamp): New function.
(org): Use new function.
| -rw-r--r-- | lisp/ox-org.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 1b5a7cc..280fd14 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -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 |