diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-04-17 18:55:35 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-04-17 18:55:35 -0700 |
| commit | fb143be038810f7265f6254177437c23e54222ca (patch) | |
| tree | b122c0b2d4eb0b9ccd74bef4513d80e0d979cf4c /src/Text/Pandoc/Readers | |
| parent | 9ad336f586542cd8af30f2e16d2c935fb0f97a3e (diff) | |
| parent | 4229cf2d92faf5774fe1a3a9c89a5de885cf75cd (diff) | |
Merge pull request #2092 from lierdakil/issue1909
MD Reader: Smart apostrophe after inline math
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index ccda83576..5e0cef4f8 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1487,7 +1487,8 @@ code = try $ do math :: MarkdownParser Inlines math = (B.displayMath <$> (mathDisplay >>= applyMacros')) - <|> (B.math <$> (mathInline >>= applyMacros')) + <|> ((B.math <$> (mathInline >>= applyMacros')) <+?> + ((getOption readerSmart >>= guard) *> apostrophe <* notFollowedBy space)) -- Parses material enclosed in *s, **s, _s, or __s. -- Designed to avoid backtracking. |