summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-07-24 10:28:11 +0200
committerBastien Guerry <bzg@altern.org>2013-07-24 10:28:11 +0200
commit1ea4c31eea291b157bcaec7ea09517b486126506 (patch)
tree40437df164b41a8136d1cc21a129f753bcf54fc5
parentc31ad79326afb0ee252e286b979a647dd5a289e8 (diff)
downloadorg-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.el10
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>