emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH 2/3] Taskjuggler export: Only create a milestone if node has


From: Christian Egli
Subject: [O] [PATCH 2/3] Taskjuggler export: Only create a milestone if node has no children
Date: Fri, 08 Mar 2013 17:24:57 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1 (gnu/linux)

* contrib/lisp/ox-taskjuggler.el (org-taskjuggler--build-task): Fix
  the check whether a node has no children

A milestone should only (automatically) be inserted if a node has no
children and no duration defined.
---
 contrib/lisp/ox-taskjuggler.el |   16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el
index 88641b8..9146dfd 100644
--- a/contrib/lisp/ox-taskjuggler.el
+++ b/contrib/lisp/ox-taskjuggler.el
@@ -696,14 +696,14 @@ a unique id will be associated to it."
          (effort (org-element-property :EFFORT task))
          (milestone
           (or (org-element-property :MILESTONE task)
-              (and (org-element-map (org-element-contents task) 'headline
-                     'identity info t)  ; Has task any child?
-                   (not (or effort
-                            (org-element-property :LENGTH task)
-                            (org-element-property :DURATION task)
-                            (and (org-taskjuggler-get-start task)
-                                 (org-taskjuggler-get-end task))
-                            (org-element-property :PERIOD task))))))
+              (not (or (org-element-map (org-element-contents task) 'headline
+                        'identity info t)  ; Has task any child?
+                      effort
+                      (org-element-property :LENGTH task)
+                      (org-element-property :DURATION task)
+                      (and (org-taskjuggler-get-start task)
+                           (org-taskjuggler-get-end task))
+                      (org-element-property :PERIOD task)))))
          (priority
           (let ((pri (org-element-property :priority task)))
             (and pri
-- 
1.7.10.4


-- 
Christian Egli
Swiss Library for the Blind, Visually Impaired and Print Disabled
Grubenstrasse 12, CH-8045 Zürich, Switzerland

-----
Die neue Online-Bibliothek der SBS: Mit wenigen Klicks zum Buch unter 
http://online.sbs.ch



reply via email to

[Prev in Thread] Current Thread [Next in Thread]