ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.)
This commit is contained in:
Robert Klein 2017-03-13 07:29:27 +01:00 committed by Nicolas Goaziou
parent 6039ece3f3
commit 175543e5ef
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/lisp/ox-groff.el
View File

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