tec/this-month-in-org
1
0
Fork 0
Code Issues Pull requests Releases Activity

Make published RSS valid

Browse source
This commit is contained in:
TEC 2021-04-26 15:49:38 +08:00
parent b39ac5ca5b
commit e2ac76f647
Signed by: tec
GPG key ID: 779591AFDB81F06C
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
publish.el
View file

@ -135,7 +135,8 @@ Return output file name."
"Publish RSS with PLIST, only when FILENAME is 'rss.org'.
PUB-DIR is when the output will be placed."
(when (equal "rss.org" (file-name-nondirectory filename))
(org-rss-publish-to-rss plist filename pub-dir)
(let ((org-fancy-html-export-mode nil))
(org-rss-publish-to-rss plist filename pub-dir))
(org-fix-rss (concat pub-dir (file-name-base filename) ".xml"))))
(defun format-rss-feed (title list)
@ -161,6 +162,12 @@ PROJECT is the current project."
(org-set-property "RSS_PERMALINK" link)
(org-set-property "PUBDATE" date)
(insert-file-contents file)
(goto-char (point-min))
(while (re-search-forward "\\[fn:\\([^]]+\\)\\]" nil t)
(replace-match "[fn\\1]")) ; footnotes are problematic
(goto-char (point-min))
(while (re-search-forward "\\[\\[file:\\(figures/.+?\\)\\]\\]" nil t)
(replace-match (concat "[[" site-root "\\1]]")))
(buffer-string))))
((eq style 'tree)
;; Return only last subdir.
@ -265,7 +272,7 @@ PROJECT is the current project."
:base-directory "./content"
:base-extension "org"
:recursive nil
:exclude ,(rx (or "rss.org" "index.org" "archive.org" "404.org" (regexp "DRAFT.*\\.org")))
:exclude ,(rx (or "rss.org" (regexp "DRAFT.*\\.org")))
:publishing-function org-rss-publish-to-rss-only
:publishing-directory "./html"
:rss-extension "xml"