Textile reader: Turn on smart punctuation by default.

This commit is contained in:
John MacFarlane 2010-12-03 22:52:46 -08:00
parent 0356ad4de6
commit 4bf9d362d2

View file

@ -91,8 +91,8 @@ specialChars = "\\[]<>*#_@~-+^&,.;:!?|\"'%"
-- | Generate a Pandoc ADT from a textile document
parseTextile :: GenParser Char ParserState Pandoc
parseTextile = do
-- textile allows raw HTML
updateState (\state -> state { stateParseRaw = True })
-- textile allows raw HTML and does smart punctuation by default
updateState (\state -> state { stateParseRaw = True, stateSmart = True })
many blankline
blocks <- parseBlocks
return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME