浏览代码

Taskjuggler export: Only create a milestone if node has no children

* 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.
Christian Egli 12 年之前
父节点
当前提交
99ee65b73f
共有 1 个文件被更改,包括 8 次插入8 次删除
  1. 8 8
      contrib/lisp/ox-taskjuggler.el

+ 8 - 8
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