diff options
| -rw-r--r-- | haunt/html.scm | 3 | ||||
| -rw-r--r-- | haunt/reader.scm | 5 |
2 files changed, 4 insertions, 4 deletions
diff --git a/haunt/html.scm b/haunt/html.scm index 0984194..f630a68 100644 --- a/haunt/html.scm +++ b/haunt/html.scm @@ -113,9 +113,6 @@ list ATTRS and the child nodes in BODY." (() *unspecified*) (('doctype type) (doctype->html type port)) - ;; Unescaped, raw HTML output. - (('raw html) - (display html port)) (((? symbol? tag) ('@ attrs ...) body ...) (element->html tag attrs body port)) (((? symbol? tag) body ...) 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) |