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

mediawiki reader: allow space before table rows.

Browse source
This commit is contained in:
John MacFarlane 2013-03-27 08:45:51 -07:00
parent ba1e74dcd7
commit 351b3e09c3
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Text/Pandoc/Readers/MediaWiki.hs
View file

@ -219,17 +219,17 @@ parseAttr = try $ do
return (k,v)
tableStart :: MWParser ()
tableStart = try $ guardColumnOne *> sym "{|"
tableStart = try $ guardColumnOne *> skipSpaces *> sym "{|"
tableEnd :: MWParser ()
tableEnd = try $ guardColumnOne *> sym "|}"
tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}"
rowsep :: MWParser ()
rowsep = try $ guardColumnOne *> sym "|-" <* blanklines
rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <* blanklines
cellsep :: MWParser ()
cellsep = try $
(guardColumnOne <*
(guardColumnOne *> skipSpaces <*
( (char '|' <* notFollowedBy (oneOf "-}+"))
<|> (char '!')
)
@ -240,6 +240,7 @@ cellsep = try $
tableCaption :: MWParser Inlines
tableCaption = try $ do
guardColumnOne
skipSpaces
sym "|+"
skipMany spaceChar
res <- anyLine >>= parseFromString (many inline)