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

LaTeX reader: allow spaces in alignment spec in tables.

Browse source 
E.g. `{ l r c }`.
This commit is contained in:
John MacFarlane 2013-08-28 16:54:37 -07:00
parent dd5cb82348
commit 940515a00b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/LaTeX.hs
View file

@ -1116,12 +1116,13 @@ complexNatbibCitation mode = try $ do
parseAligns :: LP [Alignment]
parseAligns = try $ do
char '{'
optional $ char '|'
let maybeBar = try $ spaces >> optional (char '|')
maybeBar
let cAlign = AlignCenter <$ char 'c'
let lAlign = AlignLeft <$ char 'l'
let rAlign = AlignRight <$ char 'r'
let alignChar = optional sp *> (cAlign <|> lAlign <|> rAlign)
aligns' <- sepEndBy alignChar (optional $ char '|')
aligns' <- sepEndBy alignChar maybeBar
spaces
char '}'
spaces