org-e-beamer: Output "\date{}" when :with-date is nil
authorNicolas Goaziou <n.goaziou@gmail.com>
Fri, 9 Nov 2012 19:45:57 +0000 (20:45 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Fri, 9 Nov 2012 19:45:57 +0000 (20:45 +0100)
* 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.

contrib/lisp/org-e-beamer.el
contrib/lisp/org-e-latex.el

index ef5fb7e..7eefb5f 100644 (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.
index 86af819..f18f651 100644 (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.