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

ox-html.el: Enhance date insertion 

* ox-html.el (org-html--build-postamble): Default to today's
date.
(org-html--build-meta-info): When #+DATE contains a time
stamp, parse it as a RFC 822 time string, otherwise simply
insert the date as a string.
This commit is contained in:
Bastien Guerry 2013-03-15 14:15:32 +01:00
parent ce0473532d
commit 4eba81e5f4
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ox-html.el
View File

@ -1404,7 +1404,12 @@ INFO is a plist used as a communication channel."
(and auth (org-export-data auth info)))))
(date (and (plist-get info :with-date)
(let ((date (plist-get info :date)))
(and date (org-export-data date info)))))
(if (eq (org-element-type (car date)) 'timestamp)
(format-time-string
"%a, %d %h %Y %H:%M:%S %Z" ;; RFC 822
(org-time-string-to-time
(org-element-property :raw-value (car date))))
(car date)))))
(description (plist-get info :description))
(keywords (plist-get info :keywords)))
(concat
@ -1511,8 +1516,11 @@ INFO is a plist used as a communication channel."
(when postamble
(let ((postamble-contents
(if (functionp postamble) (funcall postamble info)
(let ((date (if (not (plist-get info :with-date)) ""
(org-export-data (plist-get info :date) info)))
(let ((date (org-export-data
(or (plist-get info :date)
(substring (format-time-string
(car org-time-stamp-formats)) 1 -1))
info))
(author (let ((author (plist-get info :author)))
(and author (org-export-data author info))))
(email (mapconcat