blob: 3e86a87a9842024f18b9ba493d4df06d44866f03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (reader)
#:use-module (haunt reader)
#:use-module (haunt post)
#:use-module (sxml simple)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
#:export (xml-reader))
;; copied from read-html-post
(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)))
|
