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