From b711e70ed8e7e835c71d119db8fee8e82b43e47a Mon Sep 17 00:00:00 2001 From: Yann Hodique Date: Thu, 16 Aug 2012 21:02:00 +0200 Subject: [PATCH] org-taskjuggler.el: Properly install local variables at export time * org-taskjuggler.el (org-export-as-taskjuggler): Compute opt-plist, use `org-install-letbind'. --- lisp/org-taskjuggler.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el index 7d9d203b5..529cda009 100644 --- a/lisp/org-taskjuggler.el +++ b/lisp/org-taskjuggler.el @@ -285,7 +285,10 @@ defined in `org-export-taskjuggler-default-reports'." (message "Exporting...") (setq-default org-done-keywords org-done-keywords) - (let* ((tasks + (let* ((opt-plist (org-combine-plists (org-default-export-plist) + (org-infile-export-plist))) + (org-export-opt-plist opt-plist) + (tasks (org-taskjuggler-resolve-dependencies (org-taskjuggler-assign-task-ids (org-taskjuggler-compute-task-leafiness @@ -336,6 +339,14 @@ defined in `org-export-taskjuggler-default-reports'." (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 + (mapc (lambda (x) + (set (make-local-variable (nth 2 x)) + (plist-get opt-plist (car x)))) + org-export-plist-vars) + (let ((level (cdr (assoc "level" resource)))) (org-taskjuggler-close-maybe level) (org-taskjuggler-open-resource resource) -- 2.11.4.GIT