diff options
author | Bastien Guerry <bzg@altern.org> | 2013-07-24 10:28:11 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-07-24 10:28:11 +0200 |
commit | 1ea4c31eea291b157bcaec7ea09517b486126506 (patch) | |
tree | 40437df164b41a8136d1cc21a129f753bcf54fc5 | |
parent | c31ad79326afb0ee252e286b979a647dd5a289e8 (diff) | |
download | org-mode-1ea4c31eea291b157bcaec7ea09517b486126506.tar.gz |
contrib/lisp/ox-rss.el (org-rss-headline): Fix permalink concatenation
* ox-rss.el (org-rss-headline): Fix permalink concatenation.
(org-rss-headline, org-rss-build-channel-info): Use the
property :input-file from the info channel instead of
`buffer-file-name'.
Thanks to Nicolas for suggesting the latter fix.
-rw-r--r-- | contrib/lisp/ox-rss.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index 1cf74f6..a45107b 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -235,6 +235,7 @@ communication channel." (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)) + (hl-perm (org-element-property :RSS_PERMALINK headline)) (anchor (org-export-solidify-link-text (or (org-element-property :CUSTOM_ID headline) @@ -250,14 +251,12 @@ communication channel." (error "Missing PUBDATE property")))))) (title (org-element-property :raw-value headline)) (publink - (or (concat - (or hl-home hl-pdir) - (org-element-property :RSS_PERMALINK headline)) + (or (and hl-perm (concat (or hl-home hl-pdir) hl-perm)) (concat (or hl-home hl-pdir) (file-name-nondirectory (file-name-sans-extension - (buffer-file-name))) "." htmlext "#" anchor))) + (plist-get info :input-file))) "." htmlext "#" anchor))) (guid (if org-rss-use-entry-url-as-guid publink (org-rss-plain-text @@ -326,10 +325,11 @@ as a communication channel." (blogurl (or (plist-get info :html-link-home) (plist-get info :publishing-directory))) (image (url-encode-url (plist-get info :rss-image-url))) + (ifile (plist-get info :input-file)) (publink (concat (file-name-as-directory blogurl) (file-name-nondirectory - (file-name-sans-extension (buffer-file-name))) + (file-name-sans-extension ifile)) "." rssext))) (format "\n<title>%s</title> |