all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in task
@ 2013-04-19 16:55 Baptiste
  2013-04-20  7:21 ` Bastien
  2013-04-21 20:20 ` Christian Egli
  0 siblings, 2 replies; 6+ messages in thread
From: Baptiste @ 2013-04-19 16:55 UTC (permalink / raw)
  To: Org-mode

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

^ permalink raw reply related	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2013-04-22  8:21 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-04-19 16:55 ox-taskjuggler : Correct a small typo and deal with Scheduled and deadline in task Baptiste
2013-04-20  7:21 ` 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

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.