diff options
author | Jambunathan K <kjambunathan@gmail.com> | 2011-12-24 09:36:29 +0530 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-01-03 09:14:43 +0100 |
commit | 024ae841918fa8c78b54497f0a6bde6ca58c3675 (patch) | |
tree | 7450084766ac3a47784172f3c3055fc79dbff5f3 | |
parent | 090f802003f595c5f3f093a2f326374d8a347467 (diff) | |
download | org-mode-024ae841918fa8c78b54497f0a6bde6ca58c3675.tar.gz |
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
-rw-r--r-- | lisp/org-odt.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-odt.el b/lisp/org-odt.el index d5be1e1..b2c6f33 100644 --- a/lisp/org-odt.el +++ b/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 |