aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2024-11-23 10:21:27 -0800
committerJohn MacFarlane <[email protected]>2024-11-23 10:21:27 -0800
commit7d2bd2c9a0a23d0171202270543cd514bec31f5a (patch)
treec4d914c64e3696d6e04222cbe0787abec68d33c2 /src
parent678c7919408461d525578e94bf365a6be27c4e44 (diff)
Markdown writer: issue INFO warning when not rendering table...
...e.g., when `raw_html` is disabled and the table can't be fit into a supported markdown table format. Closes #10407.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 4d669d36a..9a9cf29b7 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -671,7 +671,9 @@ blockToMarkdown' opts t@(Table (ident,_,_) blkCapt specs thead tbody tfoot) = do
(Pandoc nullMeta [t])
return $ tbl $$ blankline -- caption is in the HTML table
| otherwise
- -> return $ (literal "[TABLE]" $$ caption''') $$ blankline
+ -> do
+ report (BlockNotRendered t)
+ return $ (literal "[TABLE]" $$ caption''') $$ blankline
blockToMarkdown' opts (BulletList items) = do
contents <- inList $ mapM (bulletListItemToMarkdown opts) items
return $ (if isTightList items then vcat else vsep)