emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH v3 01/11] org-taskjuggler.el: Make task and resource properti


From: Yann Hodique
Subject: [O] [PATCH v3 01/11] org-taskjuggler.el: Make task and resource properties customizable
Date: Thu, 16 Aug 2012 21:01:59 +0200

* org-taskjuggler.el (org-export-taskjuggler-valid-task-attributes): Add
new option.
(org-export-taskjuggler-valid-resource-attributes): Add new custom
option.
---
 lisp/org-taskjuggler.el | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el
index aa645d2..7d9d203 100644
--- a/lisp/org-taskjuggler.el
+++ b/lisp/org-taskjuggler.el
@@ -240,6 +240,24 @@ but before any resource and task declarations."
   :version "24.1"
   :type '(string :tag "Preamble"))
 
+(defcustom org-export-taskjuggler-valid-task-attributes
+  '(account start note duration endbuffer endcredit end
+           flags journalentry length limits maxend maxstart minend
+           minstart period reference responsible scheduling
+           startbuffer startcredit statusnote)
+  "Valid attributes for Taskjuggler tasks. If one of these
+  appears as a property for a headline, it will be exported with
+  the corresponding task."
+  :group 'org-export-taskjuggler)
+
+(defcustom org-export-taskjuggler-valid-resource-attributes
+  '(limits vacation shift booking efficiency journalentry rate
+          workinghours flags)
+  "Valid attributes for Taskjuggler resources. If one of these
+  appears as a property for a headline, it will be exported with
+  the corresponding resource."
+  :group 'org-export-taskjuggler)
+
 ;;; Hooks
 
 (defvar org-export-taskjuggler-final-hook nil
@@ -614,7 +632,7 @@ is defined it will calculate a unique id for the resource 
using
                 (cdr (assoc "ID" resource))
                 (cdr (assoc "unique-id" resource)))))
        (headline (cdr (assoc "headline" resource)))
-       (attributes '(limits vacation shift booking efficiency journalentry 
rate)))
+       (attributes org-export-taskjuggler-valid-resource-attributes))
     (insert
      (concat
       "resource " id " \"" headline "\" {\n "
@@ -655,11 +673,7 @@ org-mode priority string."
                                      (cdr (assoc "duration" task))
                                      (cdr (assoc "end" task))
                                      (cdr (assoc "period" task)))))))
-        (attributes
-         '(account start note duration endbuffer endcredit end
-                   flags journalentry length maxend maxstart minend
-                   minstart period reference responsible scheduling
-                   startbuffer startcredit statusnote)))
+        (attributes org-export-taskjuggler-valid-task-attributes))
     (insert
      (concat
       "task " unique-id " \"" headline "\" {\n"
-- 
1.7.11.4




reply via email to

[Prev in Thread] Current Thread [Next in Thread]