MediaWiki reader: Make smart double quotes depend on smart extension.

Closes #3585.
This commit is contained in:
John MacFarlane 2017-05-25 09:19:34 +02:00
parent b9a30ef959
commit e6f4636a2c

View file

@ -688,6 +688,8 @@ strong = B.strong <$> nested (inlinesBetween start end)
end = try $ sym "'''"
doubleQuotes :: PandocMonad m => MWParser m Inlines
doubleQuotes = B.doubleQuoted <$> nested (inlinesBetween openDoubleQuote closeDoubleQuote)
doubleQuotes = do
guardEnabled Ext_smart
B.doubleQuoted <$> nested (inlinesBetween openDoubleQuote closeDoubleQuote)
where openDoubleQuote = sym "\"" >> lookAhead nonspaceChar
closeDoubleQuote = try $ sym "\""