[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH 03/10] org-taskjuggler: make use of org properties
From: |
Yann Hodique |
Subject: |
[O] [PATCH 03/10] org-taskjuggler: make use of org properties |
Date: |
Sun, 5 Aug 2012 12:53:57 +0200 |
infer start and end date from SCHEDULED/DEADLINE information
* org-taskjuggler.el (org-taskjuggler-date): new function, produce a
taskjuggler-compatible date
(org-taskjuggler-components): make use of SCHEDULED/DEADLINE properties
---
lisp/org-taskjuggler.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el
index 102eabc..7974d1e 100644
--- a/lisp/org-taskjuggler.el
+++ b/lisp/org-taskjuggler.el
@@ -138,8 +138,6 @@
;; :END:
;;
;;;; * TODO
-;; - Use SCHEDULED and DEADLINE information (not just start and end
-;; properties).
;; - Look at org-file-properties, org-global-properties and
;; org-global-properties-fixed
;; - What about property inheritance and org-property-inherit-p?
@@ -384,6 +382,10 @@ with the TaskJuggler GUI."
(save-excursion
(and (org-up-heading-safe) (org-entry-get (point) "ORDERED"))))
+(defun org-taskjuggler-date (date)
+ (let ((time (parse-time-string date)))
+ (format "%d-%02d-%02d" (nth 5 time) (nth 4 time) (nth 3 time))))
+
(defun org-taskjuggler-components ()
"Return an alist containing all the pertinent information for
the current node such as the headline, the level, todo state
@@ -395,6 +397,12 @@ information, all the properties, etc."
(replace-regexp-in-string
"\"" "\\\"" (nth 4 components) t t)) ; quote double quotes in
headlines
(parent-ordered (org-taskjuggler-parent-is-ordered-p)))
+ (let ((scheduled (assoc "SCHEDULED" props))
+ (deadline (assoc "DEADLINE" props)))
+ (when scheduled
+ (push (cons "start" (org-taskjuggler-date (cdr scheduled))) props))
+ (when deadline
+ (push (cons "end" (org-taskjuggler-date (cdr deadline))) props)))
(push (cons "level" level) props)
(push (cons "headline" headline) props)
(push (cons "parent-ordered" parent-ordered) props)))
--
1.7.11.3
- [O] [PATCH 00/10] Takjuggler exporter improvements, Yann Hodique, 2012/08/05
- [O] [PATCH 01/10] org-taskjuggler: make task and resource properties customizable, Yann Hodique, 2012/08/05
- [O] [PATCH 04/10] org-taskjuggler: task with end-only is also a milestone (deadline), Yann Hodique, 2012/08/05
- [O] [PATCH 02/10] org-taskjuggler: properly install local variables at export time, Yann Hodique, 2012/08/05
- [O] [PATCH 03/10] org-taskjuggler: make use of org properties,
Yann Hodique <=
- [O] [PATCH 05/10] org-taskjuggler: introduce a global header, for early macros, Yann Hodique, 2012/08/05
- [O] [PATCH 06/10] org-taskjuggler: use project end date, if specified, Yann Hodique, 2012/08/05
- [O] [PATCH 07/10] org-taskjuggler: make project umbrella task optional, Yann Hodique, 2012/08/05
[O] [PATCH 08/10] org-taskjuggler: disambiguate "headline", as it's also a valid taskjuggler property, Yann Hodique, 2012/08/05