summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJambunathan K <kjambunathan@gmail.com>2011-12-24 09:36:29 +0530
committerBastien Guerry <bzg@altern.org>2012-01-03 09:14:43 +0100
commit024ae841918fa8c78b54497f0a6bde6ca58c3675 (patch)
tree7450084766ac3a47784172f3c3055fc79dbff5f3
parent090f802003f595c5f3f093a2f326374d8a347467 (diff)
downloadorg-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.el7
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