diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-05 11:58:41 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-05 11:58:41 +0300 |
| commit | 5f7799ac8f359fbb7896037a79f2abb61be2fd2c (patch) | |
| tree | 8f2a4cb1e7bd78115064fdaaa1c44bb72889bfaa | |
| parent | 537d917988d39401d855de003a06728711c81632 (diff) | |
| download | pandoc-5f7799ac8f359fbb7896037a79f2abb61be2fd2c.tar.gz | |
Muse reader: allow table caption to contain "+"
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 6475669ce..d5236c5a2 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -749,7 +749,7 @@ tableParseCaption :: PandocMonad m => MuseParser m (F MuseTableElement) tableParseCaption = try $ fmap MuseCaption . trimInlinesF . mconcat <$ many spaceChar <* string "|+" - <*> many1Till inline (string "+|") + <*> many1Till inline (try $ string "+|") -- ** Inline parsers diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 8393e45d9..958a74915 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -857,6 +857,14 @@ tests = [plain "Foo", plain "bar", plain "baz"] [[plain "First", plain "row", plain "here"], [plain "Second", plain "row", plain "there"]] + , "Table caption with +" =: + T.unlines + [ "Foo | bar" + , "|+ Table + caption +|" + ] =?> + table (text "Table + caption") (replicate 2 (AlignDefault, 0.0)) + [] + [[plain "Foo", plain "bar"]] , "Caption without table" =: "|+ Foo bar baz +|" =?> table (text "Foo bar baz") [] [] [] |