mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-07 13:15:06 +00:00
Code

ox-odt: Remove unnecessary space when no date

Browse Source 
* ox-odt.el (org-odt-template): Remove unnecessary space in header
  when no date.
This commit is contained in:
Rasmus 2015-02-24 15:13:36 +01:00
parent ce7b3fc74b
commit 398165f5a1
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ox-odt.el
View File

@ -1553,14 +1553,15 @@ original parsed data. INFO is a plist holding export options."
(timestamp (and (not (cdr date))
(eq (org-element-type (car date)) 'timestamp)
(car date))))
(concat
(format "\n<text:p text:style-name=\"%s\">%s</text:p>"
"OrgSubtitle"
(if (and (plist-get info :odt-use-date-fields) timestamp)
(org-odt--format-timestamp (car date))
(org-export-data (plist-get info :date) info)))
;; Separator
"<text:p text:style-name=\"OrgSubtitle\"/>"))))))
(when date
(concat
(format "\n<text:p text:style-name=\"%s\">%s</text:p>"
"OrgSubtitle"
(if (and (plist-get info :odt-use-date-fields) timestamp)
(org-odt--format-timestamp (car date))
(org-export-data date info)))
;; Separator
"<text:p text:style-name=\"OrgSubtitle\"/>")))))))
;; Table of Contents
(let* ((with-toc (plist-get info :with-toc))
(depth (and with-toc (if (wholenump with-toc)