Muse reader: don't allow blockquotes within lists
commit87e10ac28be163a6319ad482c5a207275b23a2a0
authorAlexander Krotov <ilabdsf@gmail.com>
dateWed 22 Nov 2017, 15:22 (9 years ago)
parente32657a
src/Text/Pandoc/Readers/Muse.hs+2−1
@@ -315,7 +315,8 @@ commentTag = parseHtmlContent "comment" anyChar >> return mempty
315315para :: PandocMonad m => MuseParser m (F Blocks)
316316para = do
317317 indent <- length <$> many spaceChar
318− let f = if indent >= 2 && indent < 6 then B.blockQuote else id
318+ st <- stateParserContext <$> getState
319+ let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id
319320 fmap (f . B.para) . normalizeInlinesF . mconcat <$> many1Till inline endOfParaElement
320321 where
321322 endOfParaElement = lookAhead $ endOfInput <|> endOfPara <|> newBlockElement