summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-11-09 20:45:57 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-11-09 20:45:57 +0100
commitb0a0511ff4e593e2c412e4273fe937a2e106691c (patch)
tree3430d544c8d86ed595c8cac2ffb3bdb26b6ea5a8
parent292f70ee7f6c017de2f0695d5ecfa863836e4b45 (diff)
downloadorg-mode-b0a0511ff4e593e2c412e4273fe937a2e106691c.tar.gz
org-e-beamer: Output "\date{}" when :with-date is nil
* 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.
-rw-r--r--contrib/lisp/org-e-beamer.el5
-rw-r--r--contrib/lisp/org-e-latex.el6
2 files changed, 6 insertions, 5 deletions
diff --git a/contrib/lisp/org-e-beamer.el b/contrib/lisp/org-e-beamer.el
index ef5fb7e..7eefb5f 100644
--- a/contrib/lisp/org-e-beamer.el
+++ b/contrib/lisp/org-e-beamer.el
@@ -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.
diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el
index 86af819..f18f651 100644
--- a/contrib/lisp/org-e-latex.el
+++ b/contrib/lisp/org-e-latex.el
@@ -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.