From 2836c9cd81cfaae9b47b45be890ea4d9e72882c5 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 24 Mar 2014 06:27:31 +0100 Subject: [PATCH] org-rss-headline: Replace bracket links by their descriptions * contrib/lisp/ox-rss.el (org-rss-headline): Replace bracket links by their descriptions. Thanks to steckerhalter for reporting this. --- contrib/lisp/ox-rss.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index 4bdd1be37..5fd2afc68 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -240,7 +240,11 @@ communication channel." (org-time-string-to-time (or (org-element-property :PUBDATE headline) (error "Missing PUBDATE property")))))) - (title (org-element-property :raw-value headline)) + (title (replace-regexp-in-string + org-bracket-link-regexp + (lambda (m) (or (match-string 3 m) + (match-string 1 m))) + (org-element-property :raw-value headline))) (publink (or (and hl-perm (concat (or hl-home hl-pdir) hl-perm)) (concat @@ -319,8 +323,8 @@ as a communication channel." (ifile (plist-get info :input-file)) (publink (concat (file-name-as-directory blogurl) - (file-name-nondirectory - (file-name-sans-extension ifile)) + (file-name-nondirectory + (file-name-sans-extension ifile)) "." rssext))) (format "\n%s