ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-taskjuggler.el: Make task and resource properties customizable 

* org-taskjuggler.el (org-export-taskjuggler-valid-task-attributes): Add
new option.
(org-export-taskjuggler-valid-resource-attributes): Add new custom
option.
This commit is contained in:
Yann Hodique 2012-08-16 21:01:59 +02:00 committed by Bastien Guerry
parent 4ca67b8164
commit b183bd1d07
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/org-taskjuggler.el
View File

@ -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"