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