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

RST reader: fix treatment of headerless simple tables.

Browse Source 
We were producing a header with blank cells rather than no
header.  Closes #7902.
This commit is contained in:
John MacFarlane
2022-02-11 09:42:24 -08:00
parent e8c1c6adb1
commit 899feec4d3
3 changed files with 3 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/RST.hs
+1 -1
View File
@@ -1304,7 +1304,7 @@ simpleTableHeader headless = try $ do
let indices = scanl (+) 0 lines'
let aligns = replicate (length lines') AlignDefault
let rawHeads = if headless
then replicate (length dashes) ""
then []
else simpleTableSplitLine indices rawContent
heads <- mapM ( parseFromString' (mconcat <$> many plain) . trim) rawHeads
return (heads, aligns, indices)
test/rst-reader.native
+1 -9
View File
@@ -1124,15 +1124,7 @@ Pandoc
, ( AlignDefault , ColWidthDefault )
, ( AlignDefault , ColWidthDefault )
]
(TableHead
( "" , [] , [] )
[ Row
( "" , [] , [] )
[ Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
, Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
, Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
]
])
(TableHead ( "" , [] , [] ) [])
[ TableBody
( "" , [] , [] )
(RowHeadColumns 0)
test/tables-rstsubset.native
+1 -10
View File
@@ -755,16 +755,7 @@
, ( AlignDefault , ColWidthDefault )
, ( AlignDefault , ColWidthDefault )
]
(TableHead
( "" , [] , [] )
[ Row
( "" , [] , [] )
[ Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
, Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
, Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
, Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
]
])
(TableHead ( "" , [] , [] ) [])
[ TableBody
( "" , [] , [] )
(RowHeadColumns 0)