Re: [O] [PATCH] Fix custom timestamps during export (ox-groff)

2017-03-16 Thread Nicolas Goaziou
Hello,

Robert Klein  writes:

> this patch updates ox-groff.el in contrig to use the
> org-timestamp-translate function instead of the non-existing
> org-translate-time.
>
> Best regards
> Robert
>
> From 632764856ecbc0f6a733d3d919f4904c6465605c Mon Sep 17 00:00:00 2001
> From: Robert Klein 
> Date: Mon, 13 Mar 2017 07:29:27 +0100
> Subject: [PATCH] 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.)

Applied. Thank you.

Regards,

-- 
Nicolas Goaziou



[O] [PATCH] Fix custom timestamps during export (ox-groff)

2017-03-12 Thread Robert Klein
Hi,

this patch updates ox-groff.el in contrig to use the
org-timestamp-translate function instead of the non-existing
org-translate-time.

Best regards
Robert

From 632764856ecbc0f6a733d3d919f4904c6465605c Mon Sep 17 00:00:00 2001
From: Robert Klein 
Date: Mon, 13 Mar 2017 07:29:27 +0100
Subject: [PATCH] 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.)
---
 contrib/lisp/ox-groff.el | 13 -
 1 file 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)))
 "")
""))
 
-- 
2.6.6