940515a · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

LaTeX reader: allow spaces in alignment spec in tables.

940515aJohn MacFarlane13 years ago

src/Text/Pandoc/Readers/LaTeX.hs+3−2

@@ -1116,12 +1116,13 @@ complexNatbibCitation mode = try $ do

1116parseAligns :: LP [Alignment]

1117parseAligns = try $ do

1118 char '{'

1119− optional $ char '|'

1119+ let maybeBar = try $ spaces >> optional (char '|')

1120+ maybeBar

1120 let cAlign = AlignCenter <$ char 'c'

1121 let cAlign = AlignCenter <$ char 'c'

1121 let lAlign = AlignLeft <$ char 'l'

1122 let lAlign = AlignLeft <$ char 'l'

1122 let rAlign = AlignRight <$ char 'r'

1123 let rAlign = AlignRight <$ char 'r'

1123 let alignChar = optional sp *> (cAlign <|> lAlign <|> rAlign)

1124 let alignChar = optional sp *> (cAlign <|> lAlign <|> rAlign)

1124− aligns' <- sepEndBy alignChar (optional $ char '|')

1125+ aligns' <- sepEndBy alignChar maybeBar

1125 spaces

1126 spaces

1126 char '}'

1127 char '}'

1127 spaces

1128 spaces