diff options
Diffstat (limited to 'haunt/reader.scm')
-rw-r--r-- | haunt/reader.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/haunt/reader.scm b/haunt/reader.scm index 461b4be..6d4477d 100644 --- a/haunt/reader.scm +++ b/haunt/reader.scm @@ -31,6 +31,7 @@ #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 rdelim) + #:use-module (sxml simple) #:use-module (haunt post) #:use-module (haunt utils) #:export (make-reader @@ -110,7 +111,9 @@ post." ((eof-object? line) (error "end of file while reading metadata: " (port-filename port))) ((string=? line "---") - (values metadata `(raw ,(read-string port)))) + (values metadata + (match (xml->sxml port) + (('*TOP* sxml) sxml)))) (else (match (map string-trim-both (string-split-at line #\:)) (((= string->symbol key) value) |