diff options
| author | François Gannaz <francois.gannaz@silecs.info> | 2012-02-21 22:00:10 +0100 |
|---|---|---|
| committer | François Gannaz <francois.gannaz@silecs.info> | 2012-02-21 22:00:10 +0100 |
| commit | a922bd6d8e06673b9bb1ff807734c7090c6516c0 (patch) | |
| tree | 2e50ca3237a3f6efeedbf25a1637eda711e9dca5 /src/Text/Pandoc/Readers | |
| parent | 661c6c12e96b85cbe65e110727881bd3dab813d1 (diff) | |
Added support for markdown-extra tables in the markdown parser
Only tables whose lines begin with a "|" are supported.
There are 2 warnings about unused variables when compiling.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 666265935..65c80956a 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -899,6 +899,10 @@ alignType strLst len = (True, True) -> AlignCenter (False, False) -> AlignDefault +extraTable :: Bool -- ^ Headerless table + -> GenParser Char ParserState Block +extraTable = extraTableWith block tableCaption + gridTable :: Bool -- ^ Headerless table -> GenParser Char ParserState Block gridTable = gridTableWith block tableCaption @@ -906,6 +910,7 @@ gridTable = gridTableWith block tableCaption table :: GenParser Char ParserState Block table = multilineTable False <|> simpleTable True <|> simpleTable False <|> multilineTable True <|> + extraTable False <|> extraTable True <|> gridTable False <|> gridTable True <?> "table" -- |