html: Remove 'raw' element type.

* haunt/html.scm (sxml->html): Remove 'raw' element renderer.
* haunt/reader.scm (read-html-post): Parse to SXML, rather than reading
  a raw string.

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 ...)

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)