git.iko.soy/typeable/pandoc
on master help sign in
Smart quote parsing in Markdown reader:

treat ' followed by ll, re, ve, then a non-letter, as a contraction. (e.g. I've, you're, he'll) git-svn-id: https://pandoc.googlecode.com/svn/trunk@559 788f1e2b-df1e-0410-8736-df70ead52e1b

commit42ade05ebe62b7995f87ea99fc10e78fedd8d349 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateWed 7 Mar 2007, 03:01 (20 years ago) parent402016d
1 file changed+4−2
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Markdown.hs+4−2
src/Text/Pandoc/Readers/Markdown.hs+4−2
@@ -32,7 +32,7 @@ module Text.Pandoc.Readers.Markdown (
3232 ) where
3333
3434import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect )
35−import Data.Char ( isAlphaNum )
35+import Data.Char ( isAlphaNum, toUpper )
3636import Text.ParserCombinators.Pandoc
3737import Text.Pandoc.Definition
3838import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment )
@@ -778,7 +778,9 @@ singleQuoteStart = try $ do
778778 char '\''
779779 notFollowedBy (oneOf ")!],.;:-? \t\n")
780780 notFollowedBy (try (do -- possessive or contraction
781− oneOf "sStT"
781+ let endings = ["s","t","ve","ll","re"]
782+ oneOfStrings (endings ++
783+ map (map toUpper) endings)
782784 satisfy (not . isAlphaNum)))
783785 return '\''
784786