* ox-taskjuggler.el (org-taskjuggler--build-project): Allow the project end and duration to be specified via properties of the root node. --- contrib/lisp/ox-taskjuggler.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 427fb6e..82aaa7e 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -765,10 +765,13 @@ days from now." org-taskjuggler-default-project-version) (or (org-taskjuggler-get-start project) (format-time-string "%Y-%m-%d")) - (let ((end (org-taskjuggler-get-end project))) + ;; The 'project-end' and 'project-duration' root node properties allow + ;; the project end date / duration to be specified directly in the Org file. + (let ((end (org-element-property :PROJECT-END project)) + (duration (org-element-property :PROJECT-DURATION project))) (or (and end (format "- %s" end)) - (format "+%sd" - org-taskjuggler-default-project-duration)))) + (and duration (format "+%s" duration)) + (format "+%sd" org-taskjuggler-default-project-duration)))) ;; Add attributes. (org-taskjuggler--indent-string (org-taskjuggler--build-attributes -- 2.5.0