From a2391b0395479e46ef6eaaea087c9f2ca7435ae2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 15 Sep 2012 01:13:26 -0400 Subject: MediaWiki reader: Parse styles on table cells. --- src/Text/Pandoc/Readers/MediaWiki.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 89564f504..e8952f9af 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -30,6 +30,8 @@ Conversion of mediawiki text to 'Pandoc' document. -} {- TODO: +_ tables - cell alignment and width +_ calculate cell widths when not given??? see html? latex? reader _ support tables http://www.mediawiki.org/wiki/Help:Tables - footnotes? -} @@ -225,6 +227,10 @@ tableCell :: MWParser Blocks tableCell = try $ do cellsep skipMany spaceChar + attrs <- (parseAttrs <$> + manyTill (satisfy (/='\n')) + (try $ char '|' <* notFollowedBy (char '|'))) + skipMany spaceChar ls <- many (notFollowedBy (cellsep <|> rowsep <|> tableEnd) *> anyChar) parseFromString (mconcat <$> many block) ls -- cgit v1.2.3