Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Adjust widths in Markdown grid tables so that they match on round-trip.

Browse source
This commit is contained in:
John MacFarlane 2016-11-15 16:48:24 +01:00
parent 298e6f38f9
commit 0dfcedad7e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -638,7 +638,7 @@ gridTable opts headless aligns widths headers' rawRows = do
then replicate numcols (1.0 / fromIntegral numcols) then replicate numcols (1.0 / fromIntegral numcols)
else widths else widths
let widthsInChars = map let widthsInChars = map
((\x -> x - 1) . floor . (fromIntegral (writerColumns opts) *)) widths' ((\x -> x - 3) . floor . (fromIntegral (writerColumns opts) *)) widths'
let hpipeBlocks blocks = hcat [beg, middle, end] let hpipeBlocks blocks = hcat [beg, middle, end]
where h = maximum (1 : map height blocks) where h = maximum (1 : map height blocks)
sep' = lblock 3 $ vcat (map text $ replicate h " | ") sep' = lblock 3 $ vcat (map text $ replicate h " | ")