From mboxrd@z Thu Jan 1 00:00:00 1970 From: Luke Crook Subject: Including date in TaskJuggler exports Date: Sun, 2 Mar 2014 21:26:10 +0000 (UTC) Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35903) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WKDuF-0000jv-QM for emacs-orgmode@gnu.org; Sun, 02 Mar 2014 16:26:51 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WKDu8-0000HX-Gu for emacs-orgmode@gnu.org; Sun, 02 Mar 2014 16:26:43 -0500 Received: from plane.gmane.org ([80.91.229.3]:56778) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WKDu8-0000Gc-9x for emacs-orgmode@gnu.org; Sun, 02 Mar 2014 16:26:36 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1WKDu6-0004vO-U4 for emacs-orgmode@gnu.org; Sun, 02 Mar 2014 22:26:35 +0100 Received: from pool-96-229-78-19.lsanca.fios.verizon.net ([96.229.78.19]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 02 Mar 2014 22:26:34 +0100 Received: from luke by pool-96-229-78-19.lsanca.fios.verizon.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 02 Mar 2014 22:26:34 +0100 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 The following small change to ox-taskjuggler.el will export the date stored in #+DATE: Modified site/org-mode/contrib/lisp/ox-taskjuggler.el diff --git a/site/org-mode/contrib/lisp/ox-taskjuggler.el b/site/org- mode/contrib/lisp/ox-taskjuggler.el index 761e180..5a1895c 100644 --- a/site/org-mode/contrib/lisp/ox-taskjuggler.el +++ b/site/org-mode/contrib/lisp/ox-taskjuggler.el @@ -696,18 +696,30 @@ Return complete project plan as a string in TaskJuggler syntax." (mapconcat (lambda (report) (org-taskjuggler--build-report report info)) main-reports "") - ;; insert title in default reports + ;; insert title and date in default reports (let* ((title (org-export-data (plist-get info :title) info)) (report-title (if (string= title "") (org-taskjuggler-get-name project) - title))) - (mapconcat - 'org-element-normalize-string - (mapcar - (function - (lambda (report) - (replace-regexp-in-string "%title" report-title report t t))) - org-taskjuggler-default-reports) ""))))))))) + title)) + (date (org-export-data (plist-get info :date) info)) + (report-date (if (string= date "") + (org-taskjuggler-get-name project) + date))) + (let* ((with-title (mapcar + (function + (lambda (report) + (replace-regexp-in-string "%title" report-title report t t))) + org-taskjuggler-default-reports)) + (with-date (mapcar + (function + (lambda (report) + (replace-regexp-in-string "%date" report-date report t t))) + with-title))) + + (mapconcat + 'org-element-normalize-string + with-date + ""))))))))))