diff options
author | Bastien Guerry <bzg@altern.org> | 2013-09-26 16:47:16 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-09-26 16:47:16 +0200 |
commit | aebacdac7ef8389c19d0ee079d7136e69095acbe (patch) | |
tree | 2e7085fd7943fe5cd4ee76878e96ba7dfba4b5d5 | |
parent | ec28c33062b3468abc2fa2458118df11165b096d (diff) | |
download | org-mode-aebacdac7ef8389c19d0ee079d7136e69095acbe.tar.gz |
contrib/lisp/ox-rss.el (org-rss-headline): Add the <author> sub-element
* contrib/lisp/ox-rss.el (org-rss-headline): Add the <author> sub-element.
-rw-r--r-- | contrib/lisp/ox-rss.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index 672e970..487f512 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -222,7 +222,10 @@ communication channel." (unless (or (org-element-property :footnote-section-p headline) ;; Only consider first-level headlines (> (org-export-get-relative-level headline info) 1)) - (let* ((htmlext (plist-get info :html-extension)) + (let* ((author (and (plist-get info :with-author) + (let ((auth (plist-get info :author))) + (and auth (org-export-data auth info))))) + (htmlext (plist-get info :html-extension)) (hl-number (org-export-get-headline-number headline info)) (hl-home (file-name-as-directory (plist-get info :html-link-home))) (hl-pdir (plist-get info :publishing-directory)) @@ -260,12 +263,13 @@ communication channel." "<item>\n" "<title>%s</title>\n" "<link>%s</link>\n" + "<author>%s</author>\n" "<guid isPermaLink=\"false\">%s</guid>\n" "<pubDate>%s</pubDate>\n" (org-rss-build-categories headline info) "\n" "<description><![CDATA[%s]]></description>\n" "</item>\n") - title publink guid pubdate contents)))) + title publink author guid pubdate contents)))) (defun org-rss-build-categories (headline info) "Build categories for the RSS item." |