summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-06-27 16:39:37 +0200
committerBastien Guerry <bzg@altern.org>2013-06-27 16:39:37 +0200
commit311856590575807b4dc98a109603bc5e846d60b6 (patch)
treee59b33e84152b99bab8be8e2f844df3436893be1
parentbe4e4ba9891a9fb13f8a69ea095df5cc70a2eb0a (diff)
downloadorg-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.el13
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.