(in-package :fw.lu)
(defun normalize-html (html)
"Convert possibly bad HTML to sane HTML as best as possible."
(let ((plump:*tag-dispatchers* plump:*html-tags*))
(with-output-to-string (ss)
(prog1 ss
(map 'vector
(lambda (x) (plump:serialize (plump:parse (plump:text x)) ss))
html)))))