lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-24 17:26:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

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
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Markdown.hs
+1 -1
View File
@@ -638,7 +638,7 @@ gridTable opts headless aligns widths headers' rawRows = do
then replicate numcols (1.0 / fromIntegral numcols)
else widths
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]
where h = maximum (1 : map height blocks)
sep' = lblock 3 $ vcat (map text $ replicate h " | ")