git.iko.soy/typeable/pandoc
on master help sign in
Commonmark writer: fix regression with fenced divs.
efc6994John MacFarlane
src/Text/Pandoc/Writers/Markdown.hs+3−1
compare with master
unifiedsplit
@@ -419,6 +419,7 @@ blockToMarkdown' :: PandocMonad m
419blockToMarkdown' _ Null = return empty
419blockToMarkdown' _ Null = return empty
420blockToMarkdown' opts (Div attrs ils) = do
420blockToMarkdown' opts (Div attrs ils) = do
421 contents <- blockListToMarkdown opts ils
421 contents <- blockListToMarkdown opts ils
422+ variant <- asks envVariant
422 return $
423 return $
423 case () of
424 case () of
424 _ | isEnabled Ext_fenced_divs opts &&
425 _ | isEnabled Ext_fenced_divs opts &&
@@ -428,7 +429,8 @@ blockToMarkdown' opts (Div attrs ils) = do
428 literal ":::" <> blankline
429 literal ":::" <> blankline
429 | isEnabled Ext_native_divs opts ||
430 | isEnabled Ext_native_divs opts ||
430 (isEnabled Ext_raw_html opts &&
431 (isEnabled Ext_raw_html opts &&
432+ (variant == Commonmark ||
431− isEnabled Ext_markdown_in_html_blocks opts) ->
433+ isEnabled Ext_markdown_in_html_blocks opts)) ->
432 tagWithAttrs "div" attrs <> blankline <>
434 tagWithAttrs "div" attrs <> blankline <>
433 contents <> blankline <> "</div>" <> blankline
435 contents <> blankline <> "</div>" <> blankline
434 | isEnabled Ext_raw_html opts &&
436 | isEnabled Ext_raw_html opts &&
test/command/6768.mdnew file+21
@@ -0,0 +1,21 @@
1+```
2+% pandoc -tcommonmark
3+::: custom_div
4+This is a div
5+:::
6+^D
7+<div class="custom_div">
8+
9+This is a div
10+
11+</div>
12+```
13+
14+```
15+% pandoc -tcommonmark-raw_html
16+::: custom_div
17+This is a div
18+:::
19+^D
20+This is a div
21+```