From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kosyrev Serge <_deepfire@feelingofgreen.ru> Subject: [PATCH 5/8] ox-taskjuggler.el: add 'org-taskjuggler-multivalued-property' Date: Sun, 8 Nov 2015 13:18:43 +0300 Message-ID: <87h9kulrol.fsf@feelingofgreen.ru> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56549) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvA7-0000z3-0G for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:43:43 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvA3-0006Oe-Pn for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:43:42 -0500 Received: from [80.92.100.69] (port=45595 helo=mail.feelingofgreen.ru) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvA3-0006OI-Ix for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:43:39 -0500 Received: from andromedae (andromedae.feelingofgreen.ru [10.128.0.213]) by mail.feelingofgreen.ru (Postfix) with ESMTPA id 9BF7732764588 for ; Tue, 10 Nov 2015 02:06:45 +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-multivalued-property): new function to operate on multivalued properties. --- contrib/lisp/ox-taskjuggler.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 82aaa7e..8036af3 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -836,6 +836,16 @@ channel." ;; Closing report. "}\n")) +(defun org-taskjuggler-multivalued-property (property element) + "Obtain PROPERTY of ELEMENT, treating it as a multi-valued property. + +See `org-entry-get-multivalued-property' for details." + (let ((prop (org-element-property property element))) + (and prop + (mapcar 'org-entry-restore-space + (org-split-string prop + "[ \t]"))))) + (defun org-taskjuggler--build-task (task info) "Return a task declaration. -- 2.5.0