From 919d4d39bd8ade68140017d26a06d1454c1b2b91 Mon Sep 17 00:00:00 2001
From: Henry Webster <hwebs@hwebs.info>
Date: Tue, 21 Jul 2026 15:07:36 -0500
Subject: start integration of external RSS feeds

---
 reader.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 reader.scm

(limited to 'reader.scm')

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)))
-- 
cgit v1.3