浏览代码

org-odt.el: Honor author. timestamp and email options in preamble

* org-odt.el (org-odt-format-preamble): Honor following user
options: author, timestamp and email.  See

http://lists.gnu.org/archive/html/emacs-orgmode/2011-12/msg00539.html
Jambunathan K 13 年之前
父节点
当前提交
7676e2bfa5
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      lisp/org-odt.el

+ 5 - 2
lisp/org-odt.el

@@ -495,7 +495,11 @@ PUB-DIR is set, use this as the publishing directory."
 	 (date (plist-get opt-plist :date))
 	 (iso-date (org-odt-format-date date))
 	 (date (org-odt-format-date date "%d %b %Y"))
-	 (email (plist-get opt-plist :email)))
+	 (email (plist-get opt-plist :email))
+	 ;; switch on or off above vars based on user settings
+	 (author (and (plist-get opt-plist :author-info) (or author email)))
+	 (email (and (plist-get opt-plist :email-info) email))
+	 (date (and (plist-get opt-plist :time-stamp-file) date)))
     (concat
      ;; title
      (when title
@@ -505,7 +509,6 @@ PUB-DIR is set, use this as the publishing directory."
 		 '("<text:title>" . "</text:title>") title))
 	;; separator
 	"<text:p text:style-name=\"OrgTitle\"/>"))
-
      (cond
       ((and author (not email))
        ;; author only