@@ -566,8 +566,10 @@ pSpace = many1 (satisfy isSpace) >> return B.space
568eitherBlockOrInline :: [String]
568eitherBlockOrInline :: [String]
569−eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",
569+eitherBlockOrInline = ["audio", "applet", "button", "iframe",
570− "map", "area", "object"]
570+ "del", "ins",
571+ "progress", "map", "area", "noscript", "script",
572+ "object", "svg", "video", "source"]
573inlineHtmlTags :: [[Char]]
575inlineHtmlTags :: [[Char]]
@@ -579,15 +581,17 @@ inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
581blockHtmlTags :: [String]
583blockHtmlTags :: [String]
582−blockHtmlTags = ["address", "article", "aside", "blockquote", "body", "button", "canvas",
584+blockHtmlTags = ["address", "article", "aside",
585+ "blockquote", "body", "button", "canvas",
583 "caption", "center", "col", "colgroup", "dd", "dir", "div",
586 "caption", "center", "col", "colgroup", "dd", "dir", "div",
584− "dl", "dt", "embed", "fieldset", "figcaption", "figure", "footer",
587+ "dl", "dt", "embed", "fieldset", "figcaption", "figure",
585− "form", "h1", "h2", "h3", "h4",
588+ "footer", "form", "h1", "h2", "h3", "h4",
586− "h5", "h6", "head", "header", "hgroup", "hr", "html", "isindex", "map", "menu",
589+ "h5", "h6", "head", "header", "hgroup", "hr", "html",
587− "noframes", "noscript", "object", "ol", "output", "p", "pre", "progress",
590+ "isindex", "menu", "noframes", "ol", "output", "p", "pre",
588− "section", "table", "tbody", "textarea", "thead", "tfoot", "ul", "dd",
591+ "section", "table", "tbody", "textarea",
592+ "thead", "tfoot", "ul", "dd",
589 "dt", "frameset", "li", "tbody", "td", "tfoot",
593 "dt", "frameset", "li", "tbody", "td", "tfoot",
590− "th", "thead", "tr", "script", "style", "svg", "video"]
594+ "th", "thead", "tr", "script", "style"]
592-- We want to allow raw docbook in markdown documents, so we
596-- We want to allow raw docbook in markdown documents, so we
593-- include docbook block tags here too.
597-- include docbook block tags here too.