diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-26 11:52:25 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-26 11:52:25 -0800 |
| commit | 1ce7c38bc415630c5e84e44d69fbdcf92873f8df (patch) | |
| tree | 3852416321872eb003276a47658cfa6b7b99daf4 | |
| parent | f70dfe4d3dd44009154e4252a382188c259f917b (diff) | |
LaTeX reader: Handle \@.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 708aa58c1..26db25208 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -691,13 +691,16 @@ unescapedChar :: GenParser Char st Inline unescapedChar = oneOf "`$^&_#{}[]|<>" >>= return . (\c -> Str [c]) specialChar :: GenParser Char st Inline -specialChar = choice [ spacer, interwordSpace, +specialChar = choice [ spacer, interwordSpace, sentenceEnd, backslash, tilde, caret, bar, lt, gt, doubleQuote ] spacer :: GenParser Char st Inline spacer = try (string "\\,") >> return (Str "") +sentenceEnd :: GenParser Char st Inline +sentenceEnd = try (string "\\@") >> return (Str "") + interwordSpace :: GenParser Char st Inline interwordSpace = try (string "\\ ") >> return (Str "\160") |