start integration of external RSS feeds

1 files changed, 14 insertions, 0 deletions

diff --git a/reader.scm b/reader.scm
new file mode 100644
index 0000000..3379829
--- /dev/null
+++ b/reader.scm
@@ -0,0 +1,14 @@
+(define-module (reader)
+  #:use-module (haunt reader)
+  #:use-module (haunt post)
+  #:use-module (sxml simple)
+  #:use-module (srfi srfi-26)
+  #:export (xml-reader))
+
+(define (read-xml-post port)
+  (values (read-metadata-headers port)
+          (xml->sxml port)))
+
+(define xml-reader
+  (make-reader (make-file-extension-matcher "xml")
+               (cut call-with-input-file <> read-xml-post)))