diff options
| author | John MacFarlane <[email protected]> | 2025-05-17 09:59:17 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-05-17 09:59:17 -0700 |
| commit | fbeadcd0baae29decc19d2ac42d8a40fc974b868 (patch) | |
| tree | 5e5dfb281d31c8d32873cb310df69cccb1a50ea3 /src | |
| parent | cc4ccb07e39a90dc0ebcf87e50e95c9abfe62499 (diff) | |
gridTables: properly handle columns with all empty cells.
See #10848.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index 4c7baad1c..1cb3046d3 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -325,7 +325,7 @@ extractColWidths opts rows = (currentwidths, fullwidths, minwidths) getCellWidths calcOffset c = replicate (cellColSpan c) (calcOffset c `div` (cellColSpan c) + calcOffset c `rem` (cellColSpan c)) - fullwidths = getWidths (offset . cellContents) + fullwidths = getWidths (max 1 . offset . cellContents) currentwidths = getWidths cellWidth minwidths = case writerWrapText opts of @@ -430,9 +430,7 @@ gridRows (x:xs) = -- be interpreted as an indented code block...even though it -- would look better to right-align right-aligned cells... -- (TODO: change this on parsing side?) - lblock (case cellWidth c of - 0 -> 16 -- TODO arbitrary - w -> w) (cellContents c) + lblock (cellWidth c) (cellContents c) formatRow cs = vfill "| " <> hcat (intersperse (vfill " | ") (map renderCellContents cs)) <> vfill " |" |