From fbeadcd0baae29decc19d2ac42d8a40fc974b868 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 17 May 2025 09:59:17 -0700 Subject: gridTables: properly handle columns with all empty cells. See #10848. --- src/Text/Pandoc/Writers/Shared.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Text') 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 " |" -- cgit v1.2.3