Merge branch 'maint'
This commit is contained in:
commit
1fea5530e3
|
@ -2753,11 +2753,12 @@ information."
|
||||||
"Transcode a TIMESTAMP object from Org to HTML.
|
"Transcode a TIMESTAMP object from Org to HTML.
|
||||||
CONTENTS is nil. INFO is a plist holding contextual
|
CONTENTS is nil. INFO is a plist holding contextual
|
||||||
information."
|
information."
|
||||||
(let ((value (org-translate-time (org-element-property :value timestamp)))
|
(let* ((f (if (eq (org-element-property :type timestamp) 'inactive) "[%s]" "<%s>"))
|
||||||
(range-end (org-element-property :range-end timestamp)))
|
(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>"
|
(format "<span class=\"timestamp-wrapper\"><span class=\"timestamp\">%s</span></span>"
|
||||||
(if (not range-end) value
|
(if (not range-end) value
|
||||||
(concat value "–" (org-translate-time range-end))))))
|
(concat value "–" (org-translate-time (format f range-end)))))))
|
||||||
|
|
||||||
|
|
||||||
;;;; Underline
|
;;;; Underline
|
||||||
|
|
Loading…
Reference in New Issue