j4nk
/
md4tj
1
0
Fork 0
Code Issues 8 Pull Requests Projects Releases Wiki Activity

RSS feed should validate now...

This commit is contained in:
j4nk 2023-07-10 09:48:09 -04:00
parent 7afc05e921
commit b590455405
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
md4tj.el
View File

@ -404,8 +404,7 @@
(mapconcat #'md4tj-rss-channel-statement-toks-to-rss (md4tj-rss-get-channel-statements) "")
(md4tj-rss-begin-tag "docs") "https://www.rssboard.org/rss-specification" (md4tj-rss-end-tag "docs")
(md4tj-rss-begin-tag "generator") "md4tj-rss.el" (md4tj-rss-end-tag "generator")
(md4tj-rss-begin-tag "lastBuildDate") (format-time-string "%a, %d %b %Y %H:%M:%S GMT") (md4tj-rss-end-tag "lastBuildDate")
(md4tj-rss-end-tag "channel")))
(md4tj-rss-begin-tag "lastBuildDate") (format-time-string "%a, %d %b %Y %H:%M:%S GMT") (md4tj-rss-end-tag "lastBuildDate")))
;; Elt is triple of
;; Title
@ -415,8 +414,6 @@
"Return RSS for ELT."
(concat (md4tj-rss-begin-tag "item")
(md4tj-rss-begin-tag "title") (nth 0 elt) (md4tj-rss-end-tag "title")
;; NOTE: change "j4nk" to author name
(md4tj-rss-begin-tag "author") "j4nk" (md4tj-rss-end-tag "author")
(md4tj-rss-begin-tag "link") (nth 2 elt) (md4tj-rss-end-tag "link")
(md4tj-rss-begin-tag "guid") (nth 2 elt) (md4tj-rss-end-tag "guid")
(md4tj-rss-begin-tag "pubDate") (format-time-string "%a, %d %b %Y %H:%M:%S %Z" (string-to-number (nth 1 elt))) (md4tj-rss-end-tag "pubDate")
@ -436,6 +433,7 @@
(md4tj-rss-begin)
(md4tj-rss-channel rsslink)
(md4tj-rss-items)
(md4tj-rss-end-tag "channel")
(md4tj-rss-end-tag "rss")))))
(defun md4tj-rss-to-file (infile outfile)