diff options
| author | John MacFarlane <[email protected]> | 2024-11-23 10:21:27 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-11-23 10:21:27 -0800 |
| commit | 7d2bd2c9a0a23d0171202270543cd514bec31f5a (patch) | |
| tree | c4d914c64e3696d6e04222cbe0787abec68d33c2 /src | |
| parent | 678c7919408461d525578e94bf365a6be27c4e44 (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.hs | 4 |
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) |
