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

Muse reader: allow table caption to contain "+"

Browse source
This commit is contained in:
Alexander Krotov 2018-10-05 11:58:41 +03:00
parent 537d917988
commit 5f7799ac8f
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Muse.hs
View file

@ -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

8
test/Tests/Readers/Muse.hs
View file

@ -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") [] [] []