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)) (author (format "\\author{%s}\n" author))
(t "\\author{}\n"))) (t "\\author{}\n")))
;; 6. Date. ;; 6. Date.
(when (plist-get info :with-date) (let ((date (and (plist-get info :with-date)
(format "\\date{%s}\n" (org-export-data (plist-get info :date) info))) (org-export-data (plist-get info :date) info))))
(format "\\date{%s}\n" (or date "")))
;; 7. Title ;; 7. Title
(format "\\title{%s}\n" title) (format "\\title{%s}\n" title)
;; 8. Hyperref options. ;; 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)) (format "\\author{%s\\thanks{%s}}\n" author email))
((or author email) (format "\\author{%s}\n" (or author email))))) ((or author email) (format "\\author{%s}\n" (or author email)))))
;; Date. ;; Date.
(if (not (plist-get info :with-date)) "\\date{}\n" (let ((date (and (plist-get info :with-date)
(let ((date (org-export-data (plist-get info :date) info))) (org-export-data (plist-get info :date) info))))
(and date (format "\\date{%s}\n" date)))) (format "\\date{%s}\n" (or date "")))
;; Title ;; Title
(format "\\title{%s}\n" title) (format "\\title{%s}\n" title)
;; Hyperref options. ;; Hyperref options.