@@ -1027,6 +1027,11 @@ para = try $ do
10271027 Just "div" -> () <$
10281028 lookAhead (htmlTag (~== TagClose "div"))
10291029 _ -> mzero
1030+ <|> do guardEnabled Ext_fenced_divs
1031+ divLevel <- stateFencedDivLevel <$> getState
1032+ if divLevel > 0
1033+ then lookAhead divFenceEnd
1034+ else mzero
10301035 return $ do
10311036 result' <- result
10321037 case B.toList result' of
@@ -1689,7 +1694,7 @@ endline = try $ do
16891694 notFollowedBy (() <$ (lookAhead (char '`') >> codeBlockFenced))
16901695 guardDisabled Ext_fenced_divs <|>
16911696 do divLevel <- stateFencedDivLevel <$> getState
1692− guard (divLevel < 1) <|> notFollowedBy fenceEnd
1697+ guard (divLevel < 1) <|> notFollowedBy divFenceEnd
16931698 notFollowedByHtmlCloser
16941699 (eof >> return mempty)
16951700 <|> (guardEnabled Ext_hard_line_breaks >> return (return B.linebreak))
@@ -1946,12 +1951,12 @@ divFenced = try $ do
19461951 skipMany (char ':')
19471952 blankline
19481953 updateState $ \st -> st{ stateFencedDivLevel = stateFencedDivLevel st + 1 }
1949− bs <- mconcat <$> manyTill block fenceEnd
1954+ bs <- mconcat <$> manyTill block divFenceEnd
19501955 updateState $ \st -> st{ stateFencedDivLevel = stateFencedDivLevel st - 1 }
19511956 return $ B.divWith attribs <$> bs
19521957
1953−fenceEnd :: PandocMonad m => MarkdownParser m ()
1954−fenceEnd = try $ do
1958+divFenceEnd :: PandocMonad m => MarkdownParser m ()
1959+divFenceEnd = try $ do
19551960 nonindentSpaces
19561961 string ":::"
19571962 skipMany (char ':')