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

Muse reader: do not allow headers in blockquotes (#3831)

Browse source
This commit is contained in:
Alexander Krotov 2017-08-04 01:41:45 +03:00 • committed by John MacFarlane
parent 38b6adaac0
commit 7a3a8790de
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -244,7 +244,7 @@ rightTag :: PandocMonad m => MuseParser m (F Blocks)
rightTag = blockTag id "right"
quoteTag :: PandocMonad m => MuseParser m (F Blocks)
quoteTag = blockTag B.blockQuote "quote"
quoteTag = withQuoteContext InDoubleQuote $ blockTag B.blockQuote "quote"
commentTag :: PandocMonad m => MuseParser m (F Blocks)
commentTag = parseHtmlContent "comment" anyChar >> return mempty

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

@ -132,12 +132,18 @@ tests =
, "Subsubsection" =:
"***** Fifth level\n" =?>
header 5 "Fifth level"
, "No headers below top level" =:
, "No headers in footnotes" =:
T.unlines [ "Foo[1]"
, "[1] * Bar"
] =?>
para (text "Foo" <>
note (para "* Bar"))
, "No headers in quotes" =:
T.unlines [ "<quote>"
, "* Hi"
, "</quote>"
] =?>
blockQuote (para "* Hi")
]
, testGroup "Footnotes"
[ "Simple footnote" =: