Jelajahi Sumber

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

* lisp/ox-org.el (org-org-timestamp): New function.
(org): Use new function.
Nicolas Goaziou 7 tahun lalu
induk
melakukan
857425e184
1 mengubah file dengan 5 tambahan dan 1 penghapusan
  1. 5 1
      lisp/ox-org.el

+ 5 - 1
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