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.
This commit is contained in:
parent
c67e8e924c
commit
33702f3777
|
@ -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 ...)
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue