diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-05 14:57:06 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-05 14:57:06 -0800 |
commit | 1415b6831e4c59d6fd1d1c7ae97ea9917e6a905a (patch) | |
tree | d105f964afdadba9fd9d0fb70b5a4c5a45c3bd0a /src/Text/Pandoc/Readers | |
parent | 23aae79b016711c15d27058b5c902e26f2169261 (diff) | |
download | pandoc-1415b6831e4c59d6fd1d1c7ae97ea9917e6a905a.tar.gz |
LaTeX reader: Support \L \l accents.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 7f726b2e1..83f1c899f 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -524,7 +524,7 @@ accentTable = ('u', [('`', 249), ('\'', 250), ('^', 251), ('"', 252)]) ] specialAccentedChar :: GenParser Char st Inline -specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig, +specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig, lslash, oslash, pound, euro, copyright, sect ] ccedil :: GenParser Char st Inline @@ -555,6 +555,13 @@ oslash = try $ do let num = if letter' == 'o' then 248 else 216 return $ Str [chr num] +lslash :: GenParser Char st Inline +lslash = try $ do + cmd <- oneOfStrings ["{\\L}","{\\l}","\\L ","\\l "] + return $ if 'l' `elem` cmd + then Str "\x142" + else Str "\x141" + aelig :: GenParser Char st Inline aelig = try $ do char '\\' |