lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-28 11:16:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

RST, Markdown writers: Fixed rendering of grid tables with blank rows.

Browse Source 
Closes #2615.
This commit is contained in:
John MacFarlane
2016-01-05 14:04:10 -08:00
parent a81b0932e5
commit a796538d84
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Markdown.hs
+1 -1
View File
@@ -572,7 +572,7 @@ gridTable opts headless _aligns widths headers' rawRows = do
else widths
let widthsInChars = map (floor . (fromIntegral (writerColumns opts) *)) widths'
let hpipeBlocks blocks = hcat [beg, middle, end]
where h = maximum (map height blocks)
where h = maximum (1 : map height blocks)
sep' = lblock 3 $ vcat (map text $ replicate h " | ")
beg = lblock 2 $ vcat (map text $ replicate h "| ")
end = lblock 2 $ vcat (map text $ replicate h " |")
src/Text/Pandoc/Writers/RST.hs
+1 -1
View File
@@ -267,7 +267,7 @@ blockToRST (Table caption _ widths headers rows) = do
then map ((+2) . numChars) $ transpose (headers' : rawRows)
else map (floor . (fromIntegral (writerColumns opts) *)) widths
let hpipeBlocks blocks = hcat [beg, middle, end]
where h = maximum (map height blocks)
where h = maximum (1 : map height blocks)
sep' = lblock 3 $ vcat (map text $ replicate h " | ")
beg = lblock 2 $ vcat (map text $ replicate h "| ")
end = lblock 2 $ vcat (map text $ replicate h " |")