Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

More smart quote adjustments:

Browse source 
+ remove support for all-caps contractions (too
  much potential for conflict with things like
  'M. Mitterand')
+ add support for 'm as a contraction


git-svn-id: https://pandoc.googlecode.com/svn/trunk@560 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-03-07 20:53:37 +00:00
parent 42ade05ebe
commit f1191f029a
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -32,7 +32,7 @@ module Text.Pandoc.Readers.Markdown (
) where ) where
import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect ) import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect )
import Data.Char ( isAlphaNum, toUpper ) import Data.Char ( isAlphaNum )
import Text.ParserCombinators.Pandoc import Text.ParserCombinators.Pandoc
import Text.Pandoc.Definition import Text.Pandoc.Definition
import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment ) import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment )
@ -778,9 +778,7 @@ singleQuoteStart = try $ do
char '\'' char '\''
notFollowedBy (oneOf ")!],.;:-? \t\n") notFollowedBy (oneOf ")!],.;:-? \t\n")
notFollowedBy (try (do -- possessive or contraction notFollowedBy (try (do -- possessive or contraction
let endings = ["s","t","ve","ll","re"] oneOfStrings ["s","t","m","ve","ll","re"]
oneOfStrings (endings ++
map (map toUpper) endings)
satisfy (not . isAlphaNum))) satisfy (not . isAlphaNum)))
return '\'' return '\''