@@ -1738,12 +1738,19 @@ spanHtml = try $ do
1738divHtml :: MarkdownParser (F Blocks)
1738divHtml :: MarkdownParser (F Blocks)
1739divHtml = try $ do
1739divHtml = try $ do
1740 guardEnabled Ext_markdown_in_html_blocks
1740 guardEnabled Ext_markdown_in_html_blocks
1741− (TagOpen _ attrs, _) <- htmlTag (~== TagOpen "div" [])
1741+ (TagOpen _ attrs, rawtag) <- htmlTag (~== TagOpen "div" [])
1742+ bls <- option "" (blankline >> option "" blanklines)
1742− contents <- mconcat <$> manyTill block (htmlTag (~== TagClose "div"))
1743+ contents <- mconcat <$>
1744+ many (notFollowedBy' (htmlTag (~== TagClose "div")) >> block)
1745+ closed <- option False (True <$ htmlTag (~== TagClose "div"))
1743− let ident = fromMaybe "" $ lookup "id" attrs
1748+ let ident = fromMaybe "" $ lookup "id" attrs
1744− let classes = maybe [] words $ lookup "class" attrs
1749+ let classes = maybe [] words $ lookup "class" attrs
1745− let keyvals = [(k,v) | (k,v) <- attrs, k /= "id" && k /= "class"]
1750+ let keyvals = [(k,v) | (k,v) <- attrs, k /= "id" && k /= "class"]
1746− return $ B.divWith (ident, classes, keyvals) <$> contents
1751+ return $ B.divWith (ident, classes, keyvals) <$> contents
1752+ else -- avoid backtracing
1753+ return $ return (B.rawBlock "html" (rawtag <> bls)) <> contents
1748rawHtmlInline :: MarkdownParser (F Inlines)
1755rawHtmlInline :: MarkdownParser (F Inlines)
1749rawHtmlInline = do
1756rawHtmlInline = do