summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-01-12 12:23:15 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2013-01-12 12:23:15 -0800
commitc8022f0419aad8a3c145539bd10711e8db8886dd (patch)
tree3cd1c367f19195266360c1c12b2ef1892b01f3b5 /src/Text
parent70e308f2f9673cdf13bb42be4ad9b68265c02df1 (diff)
HTML reader: Added html5 tags to list of block-level tags.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs13
1 files changed, 8 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index f4f421cfc..76bce9971 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -510,12 +510,15 @@ inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
-}
blockHtmlTags :: [String]
-blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",
- "dl", "fieldset", "form", "h1", "h2", "h3", "h4",
- "h5", "h6", "head", "hr", "html", "isindex", "menu",
- "noframes", "noscript", "ol", "p", "pre", "table", "ul", "dd",
+blockHtmlTags = ["address", "article", "aside", "blockquote", "body", "button", "canvas",
+ "caption", "center", "col", "colgroup", "dd", "dir", "div",
+ "dl", "dt", "embed", "fieldset", "figcaption", "figure", "footer",
+ "form", "h1", "h2", "h3", "h4",
+ "h5", "h6", "head", "header", "hgroup", "hr", "html", "isindex", "map", "menu",
+ "noframes", "noscript", "object", "ol", "output", "p", "pre", "progress",
+ "section", "table", "tbody", "textarea", "thead", "tfoot", "ul", "dd",
"dt", "frameset", "li", "tbody", "td", "tfoot",
- "th", "thead", "tr", "script", "style"]
+ "th", "thead", "tr", "script", "style", "video"]
-- We want to allow raw docbook in markdown documents, so we
-- include docbook block tags here too.