diff options
author | Robert Klein <roklein@roklein.de> | 2017-03-13 07:29:27 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-03-16 13:08:00 +0100 |
commit | 175543e5efe3787df3fed8683e6d749dcc0f16c4 (patch) | |
tree | 78293d0b1fa70ecc39a7ef5c07b5a6ef24d31859 | |
parent | 6039ece3f33654aac8f6045c621d7a72979f708e (diff) | |
download | org-mode-175543e5efe3787df3fed8683e6d749dcc0f16c4.tar.gz |
Fix custom timestamps during export (ox-groff)
* contrib/lisp/ox-groff.el (org-groff-clock, org-groff-planning): Use
org-translate-time'.
(propagate changes introduced to other export backends in commit
e1adb17ba509a43e9a03a5b367a98b8bc8de8b02.)
-rw-r--r-- | contrib/lisp/ox-groff.el | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index a9478b9..555a89d 100644 --- a/contrib/lisp/ox-groff.el +++ b/contrib/lisp/ox-groff.el @@ -823,9 +823,7 @@ information." (concat (format "\\fB%s\\fP " org-clock-string) (format org-groff-inactive-timestamp-format - (concat (org-translate-time - (org-element-property :raw-value - (org-element-property :value clock))) + (concat (org-timestamp-translate (org-element-property :value clock)) (let ((time (org-element-property :duration clock))) (and time (format " (%s)" time))))))) @@ -1409,22 +1407,19 @@ information." (concat (format "\\fR %s \\fP" org-closed-string) (format org-groff-inactive-timestamp-format - (org-translate-time - (org-element-property :raw-value closed)))))) + (org-timestamp-translate closed))))) (let ((deadline (org-element-property :deadline planning))) (when deadline (concat (format "\\fB %s \\fP" org-deadline-string) (format org-groff-active-timestamp-format - (org-translate-time - (org-element-property :raw-value deadline)))))) + (org-timestamp-translate deadline))))) (let ((scheduled (org-element-property :scheduled planning))) (when scheduled (concat (format "\\fR %s \\fP" org-scheduled-string) (format org-groff-active-timestamp-format - (org-translate-time - (org-element-property :raw-value scheduled)))))))) + (org-timestamp-translate scheduled))))))) "") "")) |