Commit 856571ba authored by  's avatar  

Syncing from Monotone at 20190211-024801. Last commit message was Recognise XHTML

parent 651bc655
......@@ -53,6 +53,8 @@
(declare (ignorable url headers code))
(cond ((cl-ppcre:scan "^text/html(;|$)" content-type)
(ignore-errors (html5-parser:parse-html5 content)))
((cl-ppcre:scan "^text/xhtml(;|$)" content-type)
(ignore-errors (html5-parser:parse-html5 content)))
((cl-ppcre:scan "^(text|application)/(x-)?json(;|$)"
content-type)
(ignore-errors (cl-json:decode-json-from-string
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment