aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-26 11:52:25 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-26 11:52:25 -0800
commit1ce7c38bc415630c5e84e44d69fbdcf92873f8df (patch)
tree3852416321872eb003276a47658cfa6b7b99daf4 /src/Text/Pandoc
parentf70dfe4d3dd44009154e4252a382188c259f917b (diff)
downloadpandoc-1ce7c38bc415630c5e84e44d69fbdcf92873f8df.tar.gz
LaTeX reader: Handle \@.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs5
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")