mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

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

Browse Source 
* 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.
This commit is contained in:
Christian Egli 2013-03-08 17:24:57 +01:00 committed by Bastien Guerry
parent 971afe66d2
commit 99ee65b73f
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
contrib/lisp/ox-taskjuggler.el
View File

@ -696,14 +696,14 @@ a unique id will be associated to it."
(effort (org-element-property :EFFORT task)) (effort (org-element-property :EFFORT task))
(milestone (milestone
(or (org-element-property :MILESTONE task) (or (org-element-property :MILESTONE task)
(and (org-element-map (org-element-contents task) 'headline (not (or (org-element-map (org-element-contents task) 'headline
'identity info t) ; Has task any child? 'identity info t) ; Has task any child?
(not (or effort effort
(org-element-property :LENGTH task) (org-element-property :LENGTH task)
(org-element-property :DURATION task) (org-element-property :DURATION task)
(and (org-taskjuggler-get-start task) (and (org-taskjuggler-get-start task)
(org-taskjuggler-get-end task)) (org-taskjuggler-get-end task))
(org-element-property :PERIOD task)))))) (org-element-property :PERIOD task)))))
(priority (priority
(let ((pri (org-element-property :priority task))) (let ((pri (org-element-property :priority task)))
(and pri (and pri