diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-22 18:42:51 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-22 18:42:51 +0200 |
commit | c76d722fc4cf272ccc5538ab1ec22f63e20931df (patch) | |
tree | 32368390a8d72287aa094f500d7cc2361ef9aa66 | |
parent | 1fc19ce5bc127f2f1ab00718f829656daec3b328 (diff) | |
download | org-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.el | 7 |
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 "–" (org-translate-time range-end)))))) + (concat value "–" (org-translate-time (format f range-end))))))) ;;;; Underline |