[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH 01/10] org-taskjuggler: make task and resource properties cus
From: |
Yann Hodique |
Subject: |
[O] [PATCH 01/10] org-taskjuggler: make task and resource properties customizable |
Date: |
Sun, 5 Aug 2012 12:53:55 +0200 |
* org-taskjuggler.el (org-export-taskjuggler-valid-task-attributes): new custom
variable
(org-export-taskjuggler-valid-resource-attributes): new custom variable
---
lisp/org-taskjuggler.el | 25 +++++++++++++++++++------
1 file changed, 19 insertions(+), 6 deletions(-)
diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el
index 4409013..3c56630 100644
--- a/lisp/org-taskjuggler.el
+++ b/lisp/org-taskjuggler.el
@@ -240,6 +240,23 @@ 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)
+ "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 +631,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 +672,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.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 <=
- [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, 2012/08/05
- [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