diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-16 23:51:57 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-16 23:51:57 +0000 |
commit | 5a48839168800fd3888f03ee7503a32aff964341 (patch) | |
tree | 16e3b65808d3ffb7972335b7c265ba4996209dfd /src | |
parent | 8c257385ac83206dac5f22b399079d14dcb353cc (diff) | |
download | pandoc-5a48839168800fd3888f03ee7503a32aff964341.tar.gz |
Minor tweaks to smart quoting code.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@497 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 14dcd5d66..601169f66 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -759,14 +759,12 @@ withQuoteContext context parser = do singleQuoted = try $ do singleQuoteStart withQuoteContext InSingleQuote $ do - notFollowedBy space result <- many1Till inline singleQuoteEnd return $ Quoted SingleQuote $ normalizeSpaces result doubleQuoted = try $ do doubleQuoteStart withQuoteContext InDoubleQuote $ do - notFollowedBy space result <- many1Till inline doubleQuoteEnd return $ Quoted DoubleQuote $ normalizeSpaces result @@ -779,15 +777,16 @@ failIfInQuoteContext context = do singleQuoteStart = try $ do failIfInQuoteContext InSingleQuote char '\'' <|> char '\8216' - notFollowedBy (oneOf ")!],.;:-?") + notFollowedBy (oneOf ")!],.;:-? \t\n") singleQuoteEnd = try $ do char '\'' <|> char '\8217' notFollowedBy alphaNum -doubleQuoteStart = do +doubleQuoteStart = try $ do failIfInQuoteContext InDoubleQuote char '"' <|> char '\8220' + notFollowedBy (oneOf " \t\n") doubleQuoteEnd = char '"' <|> char '\8221' |