From 40635b2b4c3e718622a5a006c1addf0a7b3d0009 Mon Sep 17 00:00:00 2001 From: Christian Egli Date: Fri, 3 May 2013 12:15:58 +0200 Subject: [PATCH] ox-taskjuggler.el: Handle the case of an empty document title * ox-taskjuggler.el (org-taskjuggler-project-plan): Use the project name as the title of the (default) report if the document title is empty. Thanks to Eric S Fraga for reporting this bug. --- contrib/lisp/ox-taskjuggler.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 3458e068d..f831d7c82 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -695,13 +695,16 @@ Return complete project plan as a string in TaskJuggler syntax." (lambda (report) (org-taskjuggler--build-report report info)) main-reports "") ;; insert title in default reports - (let ((title (org-export-data (plist-get info :title) info))) + (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" title report t t))) + (replace-regexp-in-string "%title" report-title report t t))) org-taskjuggler-default-reports) ""))))))))) (defun org-taskjuggler--build-project (project info)