diff options
author | Christian Egli <christian.egli@alumni.ethz.ch> | 2013-05-03 12:15:58 +0200 |
---|---|---|
committer | Christian Egli <christian.egli@alumni.ethz.ch> | 2013-05-03 12:15:58 +0200 |
commit | 40635b2b4c3e718622a5a006c1addf0a7b3d0009 (patch) | |
tree | 961a6a5a7aef738d2db73aad4c8170a2745b9619 | |
parent | c36435b44072e12173b3035543096298f5aea284 (diff) | |
download | org-mode-40635b2b4c3e718622a5a006c1addf0a7b3d0009.tar.gz |
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.
-rw-r--r-- | contrib/lisp/ox-taskjuggler.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 3458e06..f831d7c 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) |