diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-06-22 20:06:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-06-22 20:06:29 -0700 |
| commit | 9e71dc3f48d5a397cac4aecc72223629aecbabd6 (patch) | |
| tree | 9f6aaded321dc718164bb3822c30c3b8ce0802f8 /src/Text | |
| parent | d324bcb0a9d9a1a474671a48baecd2c38c773060 (diff) | |
| download | pandoc-9e71dc3f48d5a397cac4aecc72223629aecbabd6.tar.gz | |
Support \dots and well as \ldots in LaTeX reader.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index dca745b56..232f1793e 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -777,8 +777,12 @@ doubleQuoteEnd :: CharParser st String doubleQuoteEnd = try $ string "''" ellipses :: GenParser Char st Inline -ellipses = try $ string "\\ldots" >> optional (try $ string "{}") >> - return Ellipses +ellipses = try $ do + char '\\' + optional $ char 'l' + string "dots" + optional $ try $ string "{}" + return Ellipses enDash :: GenParser Char st Inline enDash = try (string "--") >> return EnDash |