diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-23 18:22:39 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-23 18:23:55 +0200 |
commit | 0113f4f80fc1d084f2d0dfff673c32e32a923c53 (patch) | |
tree | 8a1474bdc9b03950d846d0c3438daa6cde30ee4d | |
parent | e5cecc5d341e8d44f29fdd3d27d0441010f8907a (diff) | |
download | org-mode-0113f4f80fc1d084f2d0dfff673c32e32a923c53.tar.gz |
ox-taskjuggler: Fix effort property
* contrib/lisp/ox-taskjuggler.el (org-taskjuggler--build-task): Fix
effort property if `org-effort-property' was changed.
-rw-r--r-- | contrib/lisp/ox-taskjuggler.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 13f2f5e..fe88b45 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -800,7 +800,9 @@ a unique id will be associated to it." (if (eq (org-element-property :todo-type task) 'done) "100" (org-element-property :COMPLETE task))) (depends (org-taskjuggler-resolve-dependencies task info)) - (effort (org-element-property :EFFORT task)) + (effort (let ((property + (intern (concat ":" (upcase org-effort-property))))) + (org-element-property property task))) (milestone (or (org-element-property :MILESTONE task) (not (or (org-element-map (org-element-contents task) 'headline |