all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [PATCH 2/3] Taskjuggler export: Only create a milestone if node has no children
@ 2013-03-08 16:24 Christian Egli
  0 siblings, 0 replies; only message in thread
From: Christian Egli @ 2013-03-08 16:24 UTC (permalink / raw)
  To: emacs-orgmode


* 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

^ permalink raw reply related	[flat|nested] only message in thread

only message in thread, other threads:[~2013-03-08 16:25 UTC | newest]

Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-03-08 16:24 [PATCH 2/3] Taskjuggler export: Only create a milestone if node has no children Christian Egli

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.