From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kosyrev Serge <_deepfire@feelingofgreen.ru> Subject: [PATCH 7/8] ox-taskjuggler.el: allow 'priority' to be a directly-specified integer Date: Sun, 8 Nov 2015 13:20:52 +0300 Message-ID: <87611alrmu.fsf@feelingofgreen.ru> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57112) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvB8-0002uV-8k for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:44:47 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvB4-0006rT-RZ for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:44:46 -0500 Received: from [80.92.100.69] (port=45597 helo=mail.feelingofgreen.ru) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <_deepfire@feelingofgreen.ru>) id 1ZvvB4-0006r2-E9 for emacs-orgmode@gnu.org; Mon, 09 Nov 2015 17:44:42 -0500 Received: from andromedae (andromedae.feelingofgreen.ru [10.128.0.213]) by mail.feelingofgreen.ru (Postfix) with ESMTPA id 7814832764588 for ; Tue, 10 Nov 2015 02:07:48 +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): fix priority specification by allowing it to be directly passed down, in case it parses as an integer. --- contrib/lisp/ox-taskjuggler.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 44ffeb6..d49db62 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -875,10 +875,16 @@ a unique id will be associated to it." (org-taskjuggler-get-end task)) (org-element-property :PERIOD task))))) (priority - (let ((pri (org-element-property :priority task))) + (let ((pri (org-element-property :PRIORITY task))) (and pri - (max 1 (/ (* 1000 (- org-lowest-priority pri)) - (- org-lowest-priority org-highest-priority))))))) + ;; The exported task priority can be either specified + ;; via the Org priority mechahism (which is currently broken), + ;; or it can be specified directly -- by providing it as an integer. + (let ((integer-pri (ignore-errors (parse-integer pri)))) + (or integer-pri + (max 1 + (/ (* 1000 (- org-lowest-priority pri)) + (- org-lowest-priority org-highest-priority))))))))) (concat ;; Opening task. (format "task %s \"%s\" {\n" -- 2.5.0