tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-e-beamer: Output "\date{}" when :with-date is nil

Browse source 
* contrib/lisp/org-e-beamer.el (org-e-beamer-template): Output "\date{}"
  when :with-date is nil.
* contrib/lisp/org-e-latex.el (org-e-latex-template): Make sure output
  contains "\date{}" when date is empty.
This commit is contained in:
Nicolas Goaziou 2012-11-09 20:45:57 +01:00
parent 292f70ee7f
commit b0a0511ff4
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
contrib/lisp/org-e-beamer.el
View file

@ -860,8 +860,9 @@ holding export options."
(author (format "\\author{%s}\n" author))
(t "\\author{}\n")))
;; 6. Date.
(when (plist-get info :with-date)
(format "\\date{%s}\n" (org-export-data (plist-get info :date) info)))
(let ((date (and (plist-get info :with-date)
(org-export-data (plist-get info :date) info))))
(format "\\date{%s}\n" (or date "")))
;; 7. Title
(format "\\title{%s}\n" title)
;; 8. Hyperref options.

6
contrib/lisp/org-e-latex.el
View file

@ -1026,9 +1026,9 @@ holding export options."
(format "\\author{%s\\thanks{%s}}\n" author email))
((or author email) (format "\\author{%s}\n" (or author email)))))
;; Date.
(if (not (plist-get info :with-date)) "\\date{}\n"
(let ((date (org-export-data (plist-get info :date) info)))
(and date (format "\\date{%s}\n" date))))
(let ((date (and (plist-get info :with-date)
(org-export-data (plist-get info :date) info))))
(format "\\date{%s}\n" (or date "")))
;; Title
(format "\\title{%s}\n" title)
;; Hyperref options.