diff options
author | Bastien Guerry <bzg@altern.org> | 2013-06-27 16:39:37 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-06-27 16:39:37 +0200 |
commit | 311856590575807b4dc98a109603bc5e846d60b6 (patch) | |
tree | e59b33e84152b99bab8be8e2f844df3436893be1 | |
parent | be4e4ba9891a9fb13f8a69ea095df5cc70a2eb0a (diff) | |
download | org-mode-311856590575807b4dc98a109603bc5e846d60b6.tar.gz |
ox-rss.el (org-rss-headline): Various fixes.
* contrib/lisp/ox-rss.el (org-rss-headline): Fix the date and title
formats.
(org-rss-build-channel-info): Fix the date format. Add the
author's name after her email.
-rw-r--r-- | contrib/lisp/ox-rss.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index b50970c..ad02673 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -48,7 +48,7 @@ ;; :base-directory "~/myhomepage/" ;; :base-extension "org" ;; :rss-image-url "http://lumiere.ens.fr/~guerry/images/faces/15.png" -;; :home-link-home "http://lumiere.ens.fr/~guerry/" +;; :html-link-home "http://lumiere.ens.fr/~guerry/" ;; :rss-extension "xml" ;; :publishing-directory "/home/guerry/public_html/" ;; :publishing-function (org-rss-publish-to-rss) @@ -236,12 +236,11 @@ communication channel." (pubdate (let ((system-time-locale "C")) (format-time-string - "%a, %d %h %Y %H:%M:%S %Z" + "%a, %d %h %Y %H:%M:%S %z" (org-time-string-to-time (or (org-element-property :PUBDATE headline) (error "Missing PUBDATE property")))))) - (title (org-rss-plain-text - (org-element-property :raw-value headline) info)) + (title (org-element-property :raw-value headline)) (publink (concat (file-name-as-directory @@ -310,7 +309,7 @@ as a communication channel." (author (and (plist-get info :with-author) (let ((auth (plist-get info :author))) (and auth (org-export-data auth info))))) - (date (format-time-string "%a, %d %h %Y %H:%M:%S %Z")) ;; RFC 882 + (date (format-time-string "%a, %d %h %Y %H:%M:%S %z")) ;; RFC 882 (description (org-export-data (plist-get info :description) info)) (lang (plist-get info :language)) (keywords (plist-get info :keywords)) @@ -332,7 +331,7 @@ as a communication channel." <pubDate>%s</pubDate> <lastBuildDate>%s</lastBuildDate> <generator>%s</generator> -<webMaster>%s</webMaster> +<webMaster>%s (%s)</webMaster> <image> <url>%s</url> <title>%s</title> @@ -344,7 +343,7 @@ as a communication channel." emacs-major-version emacs-minor-version) " Org-mode " (org-version)) - email image title blogurl))) + email author image title blogurl))) (defun org-rss-section (section contents info) "Transcode SECTION element into RSS format. |