diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-13 12:34:18 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-13 12:34:18 -0800 |
| commit | 6b5302e063de7fcaddde69c74dac9c3841db1c24 (patch) | |
| tree | 675316c60e66fcaa6fbd87f683fb55044e802e1d /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | 0598cf0fee810f809e976cc7e564d07c55080d49 (diff) | |
| download | pandoc-6b5302e063de7fcaddde69c74dac9c3841db1c24.tar.gz | |
Markdown reader: Support RST-style line blocks.
This depends on the new Ext_line_blocks extension.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 37f12c2e0..e454fd58d 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -31,7 +31,7 @@ Conversion of markdown-formatted plain text to 'Pandoc' document. module Text.Pandoc.Readers.Markdown ( readMarkdown, readMarkdownWithWarnings ) where -import Data.List ( transpose, sortBy, findIndex, intercalate ) +import Data.List ( transpose, sortBy, findIndex, intersperse, intercalate ) import qualified Data.Map as M import Data.Ord ( comparing ) import Data.Char ( isAlphaNum, toLower ) @@ -350,6 +350,7 @@ block = choice [ codeBlockFenced , header , rawTeXBlock , htmlBlock + , lineBlock , table , codeBlockIndented , lhsCodeBlock @@ -869,6 +870,17 @@ stripMarkdownAttribute s = renderTags' $ map filterAttrib $ parseTags s filterAttrib x = x -- +-- line block +-- + +lineBlock :: MarkdownParser (F Blocks) +lineBlock = try $ do + guardEnabled Ext_line_blocks + lines' <- lineBlockLines >>= + mapM (parseFromString (trimInlinesF . mconcat <$> many inline)) + return $ B.para <$> (mconcat $ intersperse (return B.linebreak) lines') + +-- -- Tables -- |