@@ -494,25 +494,24 @@ blockToMarkdown' opts b@(RawBlock f str) = do
494494 let renderEmpty = mempty <$ report (BlockNotRendered b)
495495 case variant of
496496 PlainText -> renderEmpty
497− _ | f `elem` ["markdown", "markdown_github", "markdown_phpextra",
498− "markdown_mmd", "markdown_strict"] ->
499− return $ literal str <> literal "\n"
500− | isEnabled Ext_raw_attribute opts -> rawAttribBlock
501− | f `elem` ["html", "html5", "html4"] ->
502− case () of
503− _ | isEnabled Ext_markdown_attribute opts -> return $
504− literal (addMarkdownAttribute str) <> literal "\n"
505− | isEnabled Ext_raw_html opts -> return $
506− literal str <> literal "\n"
507− | isEnabled Ext_raw_attribute opts -> rawAttribBlock
508− | otherwise -> renderEmpty
509− | f `elem` ["latex", "tex"] ->
510− case () of
511− _ | isEnabled Ext_raw_tex opts -> return $
512− literal str <> literal "\n"
513− | isEnabled Ext_raw_attribute opts -> rawAttribBlock
514− | otherwise -> renderEmpty
515− | otherwise -> renderEmpty
497+ Commonmark
498+ | f `elem` ["gfm", "commonmark", "commonmark_x", "markdown"]
499+ -> return $ literal str <> literal "\n"
500+ Markdown
501+ | f `elem` ["markdown", "markdown_github", "markdown_phpextra",
502+ "markdown_mmd", "markdown_strict"]
503+ -> return $ literal str <> literal "\n"
504+ _ | isEnabled Ext_raw_attribute opts -> rawAttribBlock
505+ | f `elem` ["html", "html5", "html4"]
506+ , isEnabled Ext_markdown_attribute opts
507+ -> return $ literal (addMarkdownAttribute str) <> literal "\n"
508+ | f `elem` ["html", "html5", "html4"]
509+ , isEnabled Ext_raw_html opts
510+ -> return $ literal str <> literal "\n"
511+ | f `elem` ["latex", "tex"]
512+ , isEnabled Ext_raw_tex opts
513+ -> return $ literal str <> literal "\n"
514+ _ -> renderEmpty
516515blockToMarkdown' opts HorizontalRule =
517516 return $ blankline <> literal (T.replicate (writerColumns opts) "-") <> blankline
518517blockToMarkdown' opts (Header level attr inlines) = do
@@ -1250,21 +1249,23 @@ inlineToMarkdown opts il@(RawInline f str) = do
12501249 let renderEmpty = mempty <$ report (InlineNotRendered il)
12511250 case variant of
12521251 PlainText -> renderEmpty
1253− _ | f `elem` ["markdown", "markdown_github", "markdown_phpextra",
1254− "markdown_mmd", "markdown_strict"] ->
1255− return $ literal str
1256− | isEnabled Ext_raw_attribute opts -> rawAttribInline
1257− | f `elem` ["html", "html5", "html4"] ->
1258− case () of
1259− _ | isEnabled Ext_raw_html opts -> return $ literal str
1260− | isEnabled Ext_raw_attribute opts -> rawAttribInline
1261− | otherwise -> renderEmpty
1262− | f `elem` ["latex", "tex"] ->
1263− case () of
1264− _ | isEnabled Ext_raw_tex opts -> return $ literal str
1265− | isEnabled Ext_raw_attribute opts -> rawAttribInline
1266− | otherwise -> renderEmpty
1267− | otherwise -> renderEmpty
1252+ Commonmark
1253+ | f `elem` ["gfm", "commonmark", "commonmark_x", "markdown"]
1254+ -> return $ literal str
1255+ Markdown
1256+ | f `elem` ["markdown", "markdown_github", "markdown_phpextra",
1257+ "markdown_mmd", "markdown_strict"]
1258+ -> return $ literal str
1259+ _ | isEnabled Ext_raw_attribute opts -> rawAttribInline
1260+ | f `elem` ["html", "html5", "html4"]
1261+ , isEnabled Ext_raw_html opts
1262+ -> return $ literal str
1263+ | f `elem` ["latex", "tex"]
1264+ , isEnabled Ext_raw_tex opts
1265+ -> return $ literal str
1266+ _ -> renderEmpty
1267+
1268+
12681269inlineToMarkdown opts LineBreak = do
12691270 variant <- asks envVariant
12701271 if variant == PlainText || isEnabled Ext_hard_line_breaks opts