[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH 05/10] org-taskjuggler: introduce a global header, for early
From: |
Yann Hodique |
Subject: |
[O] [PATCH 05/10] org-taskjuggler: introduce a global header, for early macros |
Date: |
Sun, 5 Aug 2012 12:53:59 +0200 |
* org-taskjuggler.el (org-export-taskjuggler-default-global-header): new custom
variable
(org-export-as-taskjuggler): insert global header before anything else
---
lisp/org-taskjuggler.el | 19 ++++++++++++++-----
1 file changed, 14 insertions(+), 5 deletions(-)
diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el
index f668e7f..3f829b3 100644
--- a/lisp/org-taskjuggler.el
+++ b/lisp/org-taskjuggler.el
@@ -221,6 +221,14 @@ with `org-export-taskjuggler-project-tag'"
:version "24.1"
:type '(repeat (string :tag "Report")))
+(defcustom org-export-taskjuggler-default-global-header
+ ""
+ "Default global header for the project. This goes before
+project declaration, and might be useful for early macros"
+ :group 'org-export-taskjuggler
+ :version "24.1"
+ :type '(string :tag "Preamble"))
+
(defcustom org-export-taskjuggler-default-global-properties
"shift s40 \"Part time shift\" {
workinghours wed, thu, fri off
@@ -331,11 +339,6 @@ defined in `org-export-taskjuggler-default-reports'."
(setcar tasks (push (cons "version" version) task))))
(with-current-buffer buffer
(erase-buffer)
- (org-clone-local-variables old-buffer "^org-")
- (org-taskjuggler-open-project (car tasks))
- (insert org-export-taskjuggler-default-global-properties)
- (insert "\n")
- (dolist (resource resources)
(org-install-letbind)
;; create local variables for all options, to make sure all called
;; functions get the correct information
@@ -344,6 +347,12 @@ defined in `org-export-taskjuggler-default-reports'."
(plist-get opt-plist (car x))))
org-export-plist-vars)
+ (org-clone-local-variables old-buffer "^org-")
+ (insert org-export-taskjuggler-default-global-header)
+ (org-taskjuggler-open-project (car tasks))
+ (insert org-export-taskjuggler-default-global-properties)
+ (insert "\n")
+ (dolist (resource resources)
(let ((level (cdr (assoc "level" resource))))
(org-taskjuggler-close-maybe level)
(org-taskjuggler-open-resource resource)
--
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, 2012/08/05
- [O] [PATCH 05/10] org-taskjuggler: introduce a global header, for early macros,
Yann Hodique <=
- [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
[O] [PATCH 09/10] org-taskjuggler: allow reports definition from within the org file, Yann Hodique, 2012/08/05