summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-09-22 18:42:51 +0200
committerBastien Guerry <bzg@altern.org>2012-09-22 18:42:51 +0200
commitc76d722fc4cf272ccc5538ab1ec22f63e20931df (patch)
tree32368390a8d72287aa094f500d7cc2361ef9aa66
parent1fc19ce5bc127f2f1ab00718f829656daec3b328 (diff)
downloadorg-mode-c76d722fc4cf272ccc5538ab1ec22f63e20931df.tar.gz
contrib/lisp/org-e-html.el: Honor the use of `org-time-stamp-custom-formats'
* org-e-html.el (org-e-html-timestamp): Honor the use of `org-time-stamp-custom-formats'.
-rw-r--r--contrib/lisp/org-e-html.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el
index f3daa17..c3d1bf2 100644
--- a/contrib/lisp/org-e-html.el
+++ b/contrib/lisp/org-e-html.el
@@ -2857,11 +2857,12 @@ information."
"Transcode a TIMESTAMP object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual
information."
- (let ((value (org-translate-time (org-element-property :value timestamp)))
- (range-end (org-element-property :range-end timestamp)))
+ (let* ((f (if (eq (org-element-property :type timestamp) 'inactive) "[%s]" "<%s>"))
+ (value (org-translate-time (format f (org-element-property :value timestamp))))
+ (range-end (org-element-property :range-end timestamp)))
(format "<span class=\"timestamp-wrapper\"><span class=\"timestamp\">%s</span></span>"
(if (not range-end) value
- (concat value "&ndash;" (org-translate-time range-end))))))
+ (concat value "&ndash;" (org-translate-time (format f range-end)))))))
;;;; Underline