From: Baptiste <bateast@bat.fr.eu.org>
To: Org-mode <emacs-orgmode@gnu.org>
Subject: ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in task
Date: Fri, 19 Apr 2013 18:55:04 +0200 [thread overview]
Message-ID: <874nf24g0n.fsf@bat.fr.eu.org> (raw)
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
next reply other threads:[~2013-04-19 15:55 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-04-19 16:55 Baptiste [this message]
2013-04-20 7:21 ` ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in task Bastien
2013-04-21 20:20 ` Christian Egli
2013-04-21 22:13 ` Bastien
2013-04-22 7:42 ` Christian Egli
2013-04-22 9:20 ` Baptiste
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=874nf24g0n.fsf@bat.fr.eu.org \
--to=bateast@bat.fr.eu.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).