From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kosyrev Serge <_deepfire@feelingofgreen.ru> Subject: [PATCH 6/8] ox-taskjuggler.el: interpret 'allocate' as a multivalued-property Date: Sun, 8 Nov 2015 13:19:38 +0300 Message-ID: <87d1vilrnv.fsf@feelingofgreen.ru> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56716) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvAW-0001kC-CX for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:44:09 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvAT-0006Ym-6R for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:44:08 -0500 Received: from [80.92.100.69] (port=45596 helo=mail.feelingofgreen.ru) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvAS-0006Yf-Vd for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:44:05 -0500 Received: from andromedae (andromedae.feelingofgreen.ru [10.128.0.213]) by mail.feelingofgreen.ru (Postfix) with ESMTPA id D2E3032764588 for ; Tue, 10 Nov 2015 02:07:10 +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-task): interpret 'allocate' as a multivalued property, to pave the way for future completion-enabled entry of this property. --- contrib/lisp/ox-taskjuggler.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 8036af3..44ffeb6 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -856,7 +856,7 @@ All valid attributes from TASK are inserted. If TASK defines a property \"task_id\" it will be used as the id for this task. Otherwise it will use the ID property. If neither is defined a unique id will be associated to it." - (let* ((allocate (org-element-property :ALLOCATE task)) + (let* ((allocate (org-taskjuggler-multivalued-property :ALLOCATE task)) (complete (if (eq (org-element-property :todo-type task) 'done) "100" (org-element-property :COMPLETE task))) @@ -892,8 +892,8 @@ a unique id will be associated to it." (format " purge %s\n allocate %s\n" ;; Compatibility for previous TaskJuggler versions. (if (>= org-taskjuggler-target-version 3.0) "allocate" - "allocations") - allocate)) + "allocations") + (mapconcat 'identity allocate ", "))) (and complete (format " complete %s\n" complete)) (and effort (format " effort %s\n" -- 2.5.0