From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kosyrev Serge <_deepfire@feelingofgreen.ru> Subject: [PATCH 4/8] ox-taskjuggler.el: :PROJECT-{END, DURATION} project attribute Date: Sun, 8 Nov 2015 13:18:16 +0300 Message-ID: <87lha6lrp3.fsf@feelingofgreen.ru> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56498) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1Zvv9o-0000OJ-Dg for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:43:25 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1Zvv9l-0006KJ-8g for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:43:24 -0500 Received: from [80.92.100.69] (port=45594 helo=mail.feelingofgreen.ru) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1Zvv9l-0006KC-1K for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:43:21 -0500 Received: from andromedae (andromedae.feelingofgreen.ru [10.128.0.213]) by mail.feelingofgreen.ru (Postfix) with ESMTPA id 1C55132764588 for ; Tue, 10 Nov 2015 02:06:27 +0300 (MSK) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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