mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

contrib/lisp/org-e-html.el: Honor the use of `org-time-stamp-custom-formats'

Browse Source 
* org-e-html.el (org-e-html-timestamp): Honor the use of
`org-time-stamp-custom-formats'.
This commit is contained in:
Bastien Guerry 2012-09-22 18:42:51 +02:00
parent 1fc19ce5bc
commit c76d722fc4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/lisp/org-e-html.el
View File

@ -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