Explorar o código

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

* lisp/ox-org.el (org-org-timestamp): New function.
(org): Use new function.
Nicolas Goaziou %!s(int64=7) %!d(string=hai) anos
pai
achega
857425e184
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  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