tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-rss-headline: Replace bracket links by their descriptions

Browse source 
* contrib/lisp/ox-rss.el (org-rss-headline): Replace bracket
links by their descriptions.

Thanks to steckerhalter for reporting this.
This commit is contained in:
Bastien Guerry 2014-03-24 06:27:31 +01:00
parent d91d4bfb47
commit 2836c9cd81
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
contrib/lisp/ox-rss.el
View file

@ -240,7 +240,11 @@ communication channel."
(org-time-string-to-time (org-time-string-to-time
(or (org-element-property :PUBDATE headline) (or (org-element-property :PUBDATE headline)
(error "Missing PUBDATE property")))))) (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 (publink
(or (and hl-perm (concat (or hl-home hl-pdir) hl-perm)) (or (and hl-perm (concat (or hl-home hl-pdir) hl-perm))
(concat (concat
@ -319,8 +323,8 @@ as a communication channel."
(ifile (plist-get info :input-file)) (ifile (plist-get info :input-file))
(publink (publink
(concat (file-name-as-directory blogurl) (concat (file-name-as-directory blogurl)
(file-name-nondirectory (file-name-nondirectory
(file-name-sans-extension ifile)) (file-name-sans-extension ifile))
"." rssext))) "." rssext)))
(format (format
"\n<title>%s</title> "\n<title>%s</title>