Skip to content

Instantly share code, notes, and snippets.

@arathnim

arathnim/rss.cl

Created September 6, 2017 02:41
Show Gist options
  • Save arathnim/2ad522a15a3f8b5e92884469ba145fe6 to your computer and use it in GitHub Desktop.
Save arathnim/2ad522a15a3f8b5e92884469ba145fe6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rss.cl
(quickload/use '(aphasia arrows alexandria drakma cl-ppcre cxml))
(-> (read-file "~/rss")
(split "\\n")
(thread-map
(compose
(http-request)
(xml->sexp)
(map (recur-match-all 'item))))
(flatten 1)
(sort (parse-date (recur-match ('date d) => d)))
(print))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment