diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-01-18 08:34:09 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-01-18 08:35:21 -0800 |
| commit | df1944f7740599896f0e3d3de1be2e6aafb62d6c (patch) | |
| tree | cc7f60659899c0cedc674df23bb9a42fd9443d60 /src/Text | |
| parent | 18f0b70d40e18c2c5b34c20a45f7b625a917b5a4 (diff) | |
Markdown writer: fix output for pipe tables...
...with a huge number of columns. Previously we got invalid pipe
tables when the number of table columns exceeded the setting of
`--columns`.
Closes #9346.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown/Table.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown/Table.hs b/src/Text/Pandoc/Writers/Markdown/Table.hs index b2a220b10..caef0a0ea 100644 --- a/src/Text/Pandoc/Writers/Markdown/Table.hs +++ b/src/Text/Pandoc/Writers/Markdown/Table.hs @@ -50,7 +50,9 @@ pipeTable opts headless aligns widths rawHeaders rawRows = do not (all (== 0) widths) && maxwidth + (numcols + 1) > colwidth then map - (floor . (* fromIntegral (colwidth - (numcols +1)))) + (max 0 . + floor . + (* fromIntegral (colwidth - (numcols +1)))) widths else contentWidths let torow cs = nowrap $ literal "|" <> |