diff options
| author | Laurent P. René de Cotret <LaurentRDC@users.noreply.github.com> | 2020-08-08 01:45:47 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-08-07 22:45:47 -0700 |
| commit | 499fc11fca83cf4991cb9bce223fa3d046d4fa68 (patch) | |
| tree | fdb6f879fd549d86b38e4c2798d6cb902744c1c0 | |
| parent | bed62fcf17a38765d70fe4ab51ba1742f42fe056 (diff) | |
| download | pandoc-499fc11fca83cf4991cb9bce223fa3d046d4fa68.tar.gz | |
[Latex Reader] Table cell parser not consuming spaces correctly (#6597)
* Added test to replicate (#6596)
* Table cell reader not consuming spaces correctly (#6596)
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/LaTeX.hs | 7 |
2 files changed, 9 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index af00813b6..9ab4b3cb8 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -2387,9 +2387,11 @@ parseTableRow envname prefsufs = do parseTableCell :: PandocMonad m => LP m Cell parseTableCell = do + spaces updateState $ \st -> st{ sInTableCell = True } cell' <- parseMultiCell <|> parseSimpleCell updateState $ \st -> st{ sInTableCell = False } + spaces return cell' cellAlignment :: PandocMonad m => LP m Alignment diff --git a/test/Tests/Readers/LaTeX.hs b/test/Tests/Readers/LaTeX.hs index 74906fab4..a8d969659 100644 --- a/test/Tests/Readers/LaTeX.hs +++ b/test/Tests/Readers/LaTeX.hs @@ -148,6 +148,13 @@ tests = [ testGroup "tokenization" , simpleCell (plain "Two") ] ] + , "table with multicolumn item (#6596)" =: + "\\begin{tabular}{l c r}One & \\multicolumn{2}{c}{Two} & \\\\ \\end{tabular}" =?> + table' [AlignLeft, AlignCenter, AlignRight] + [ Row nullAttr [ simpleCell (plain "One") + , cell AlignCenter (RowSpan 1) (ColSpan 2) (plain "Two") + ] + ] , "Table with multirow item" =: T.unlines ["\\begin{tabular}{c}" ,"\\multirow{2}{c}{One}\\\\Two\\\\" |