aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 235b594db..558043b3c 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1422,11 +1422,14 @@ nonEndline = satisfy (/='\n')
str :: MarkdownParser (F Inlines)
str = do
- isSmart <- readerSmart . stateOptions <$> getState
+ isSmart <- getOption readerSmart
+ intrawordUnderscores <- option False $
+ True <$ guardEnabled Ext_intraword_underscores
a <- alphaNum
as <- many $ alphaNum
- <|> (guardEnabled Ext_intraword_underscores >>
- try (char '_' >>~ lookAhead alphaNum))
+ <|> (if intrawordUnderscores
+ then try (char '_' >>~ lookAhead alphaNum)
+ else mzero)
<|> if isSmart
then (try $ satisfy (\c -> c == '\'' || c == '\x2019') >>
lookAhead alphaNum >> return '\x2019')