[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] ox-taskjuggler : Correct a small typo and deal with Scheduled and de
From: |
Baptiste |
Subject: |
[O] ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in task |
Date: |
Fri, 19 Apr 2013 18:55:04 +0200 |
User-agent: |
mu4e 0.9.9.5; emacs 24.3.50.1 |
Hi,
hereafter a small typo correction, plus the capability to use DEADLINE:
and SCHEDULED: in task (special export format for milestones).
--
: ~^v^~ Bat
ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in
task
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el
index 16f0e8d..113aa29 100644
--- a/contrib/lisp/ox-taskjuggler.el
+++ b/contrib/lisp/ox-taskjuggler.el
@@ -754,16 +754,18 @@ 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))
+ ((and start) (format " start %s\n" start))
+ ((and 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)))
@@ -790,7 +800,7 @@ a unique id will be associated to it."
(let* ((minutes (org-duration-string-to-minutes effort))
(hours (/ minutes 60.0)))
(format "%.1fh" hours))))
- (and priority (format " priority %s\n" complete))
+ (and priority (format " priority %s\n" priority))
(and milestone " milestone\n")
;; Add other valid attributes.
(org-taskjuggler--indent-string
- [O] ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in task,
Baptiste <=