From d36be8faf6ecbc722d75950f5bc664f2b9d87e27 Mon Sep 17 00:00:00 2001 From: Baptiste Fouques Date: Mon, 22 Apr 2013 10:59:15 +0200 Subject: [PATCH] ox-taskjuggler.el: use :SCHEDULED and :DEADLINE as start and end for tasks as a special behavior, for milestones, if both :SCHEDULED and :DEADLINE ar specified, then :SCHEDULED will be mark as the milestone date, and :DEADLINE will be checked against actual scheduled date by TJ3. TINYCHANGE --- contrib/lisp/ox-taskjuggler.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 4724ec3..2c1dee7 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -754,6 +754,8 @@ a unique id will be associated to it." (org-element-property :COMPLETE task))) (depends (org-taskjuggler-resolve-dependencies task info)) (effort (org-element-property :EFFORT task)) + (start (org-taskjuggler-get-start task)) + (end (org-taskjuggler-get-end task)) (milestone (or (org-element-property :MILESTONE task) (not (or (org-element-map (org-element-contents task) 'headline @@ -775,6 +777,14 @@ a unique id will be associated to it." (org-taskjuggler-get-id task info) (org-taskjuggler-get-name task)) ;; Add default attributes. + (and milestone + (cond + ((and start end) (format " start %s\n maxend %s\n" start end)) + (start (format " start %s\n" start)) + (end (format " start %s\n" end)))) + (and start (not milestone) (format " start %s\n" start)) + (and end (not milestone) (format " end %s\n" end)) + (and depends (format " depends %s\n" (org-taskjuggler-format-dependencies depends task info))) -- 1.8.1.2