diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-07 21:24:35 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-07 21:24:35 -0800 |
| commit | 5e35eb309fddea2ebc683c5cc9a9a1a824a7afd0 (patch) | |
| tree | 0e98d088577fc5aedbc75511baa4b431bf42bc58 | |
| parent | 33ba35da9fd584a17b6b1011daa76a8232799c18 (diff) | |
| download | pandoc-5e35eb309fddea2ebc683c5cc9a9a1a824a7afd0.tar.gz | |
Make --smart work in HTML reader.
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index fdc727170..f05fdd57b 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -668,7 +668,8 @@ plain = many1 inline >>= return . Plain . normalizeSpaces -- inline :: GenParser Char ParserState Inline -inline = choice [ charRef +inline = choice [ smartPunctuation inline + , str , strong , emph , superscript @@ -676,11 +677,11 @@ inline = choice [ charRef , strikeout , spanStrikeout , code - , str , linebreak , whitespace , link , image + , charRef , rawHtmlInline , char '&' >> return (Str "&") -- common HTML error ] <?> "inline" |