ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
This commit is contained in:
Jambunathan K 2011-12-24 09:36:29 +05:30 committed by Bastien Guerry
parent 090f802003
commit 024ae84191
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-odt.el
View File

@ -495,7 +495,11 @@ PUB-DIR is set, use this as the publishing directory."
(date (plist-get opt-plist :date)) (date (plist-get opt-plist :date))
(iso-date (org-odt-format-date date)) (iso-date (org-odt-format-date date))
(date (org-odt-format-date date "%d %b %Y")) (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 (concat
;; title ;; title
(when title (when title
@ -505,7 +509,6 @@ PUB-DIR is set, use this as the publishing directory."
'("<text:title>" . "</text:title>") title)) '("<text:title>" . "</text:title>") title))
;; separator ;; separator
"<text:p text:style-name=\"OrgTitle\"/>")) "<text:p text:style-name=\"OrgTitle\"/>"))
(cond (cond
((and author (not email)) ((and author (not email))
;; author only ;; author only