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

Export backends: Interpret correctly DATE keyword 

* contrib/lisp/org-e-ascii.el (org-e-ascii-template--document-title):
  Interpret correctly DATE keyword.
* contrib/lisp/org-e-html.el (org-e-html-format-date): Interpret
  correctly DATE keyword.
* contrib/lisp/org-e-latex.el (org-e-latex-template): Interpret
  correctly DATE keyword.
* contrib/lisp/org-e-odt.el (org-e-odt-format-preamble,
  org-e-odt-update-meta-file): Interpret correctly DATE keyword.
This commit is contained in:
Nicolas Goaziou 2012-06-20 12:33:23 +02:00
parent 500567fab3
commit 62453c5bf4
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/lisp/org-e-ascii.el
View File

@ -901,7 +901,7 @@ INFO is a plist used as a communication channel."
(and auth (org-export-data auth info))))) (and auth (org-export-data auth info)))))
(email (and (plist-get info :with-email) (email (and (plist-get info :with-email)
(org-export-data (plist-get info :email) info))) (org-export-data (plist-get info :email) info)))
(date (plist-get info :date))) (date (org-export-data (plist-get info :date) info)))
;; There are two types of title blocks depending on the presence ;; There are two types of title blocks depending on the presence
;; of a title to display. ;; of a title to display.
(if (string= title "") (if (string= title "")

2
contrib/lisp/org-e-html.el
View File

@ -1407,7 +1407,7 @@ Replaces invalid characters with \"_\"."
(mapconcat 'org-e-html-format-footnote-definition fn-alist "\n")))))) (mapconcat 'org-e-html-format-footnote-definition fn-alist "\n"))))))
(defun org-e-html-format-date (info) (defun org-e-html-format-date (info)
(let ((date (plist-get info :date))) (let ((date (org-export-data (plist-get info :date) info)))
(cond (cond
((and date (string-match "%" date)) ((and date (string-match "%" date))
(format-time-string date)) (format-time-string date))

2
contrib/lisp/org-e-latex.el
View File

@ -1084,7 +1084,7 @@ holding export options."
(author (format "\\author{%s}\n" author)) (author (format "\\author{%s}\n" author))
(t "\\author{}\n"))) (t "\\author{}\n")))
;; 6. Date. ;; 6. Date.
(let ((date (plist-get info :date))) (let ((date (org-export-data (plist-get info :date) info)))
(and date (format "\\date{%s}\n" date))) (and date (format "\\date{%s}\n" date)))
;; 7. Title ;; 7. Title
(format "\\title{%s}\n" title) (format "\\title{%s}\n" title)

5
contrib/lisp/org-e-odt.el
View File

@ -124,7 +124,7 @@ structure of the values.")
(author (and (plist-get info :with-author) (author (and (plist-get info :with-author)
(let ((auth (plist-get info :author))) (let ((auth (plist-get info :author)))
(and auth (org-export-data auth info))))) (and auth (org-export-data auth info)))))
(date (plist-get info :date)) (date (org-export-data (plist-get info :date) info))
(iso-date (org-e-odt-format-date date)) (iso-date (org-e-odt-format-date date))
(date (org-e-odt-format-date date "%d %b %Y")) (date (org-e-odt-format-date date "%d %b %Y"))
(email (plist-get info :email)) (email (plist-get info :email))
@ -1066,7 +1066,8 @@ ATTR is a string of other attributes of the a element."
(let ((title (org-export-data (plist-get info :title) info)) (let ((title (org-export-data (plist-get info :title) info))
(author (or (let ((auth (plist-get info :author))) (author (or (let ((auth (plist-get info :author)))
(and auth (org-export-data auth info))) "")) (and auth (org-export-data auth info))) ""))
(date (org-e-odt-format-date (plist-get info :date))) (date (org-e-odt-format-date
(org-export-data (plist-get info :date) info)))
(email (plist-get info :email)) (email (plist-get info :email))
(keywords (plist-get info :keywords)) (keywords (plist-get info :keywords))
(description (plist-get info :description))) (description (plist-get info :description)))