git.iko.soy/typeable/pandoc
on master help sign in
LaTeX reader: Support \L \l accents.
1415b68John MacFarlane
src/Text/Pandoc/Readers/LaTeX.hs+8−1
compare with master
unifiedsplit
@@ -524,7 +524,7 @@ accentTable =
524 ('u', [('`', 249), ('\'', 250), ('^', 251), ('"', 252)]) ]
524 ('u', [('`', 249), ('\'', 250), ('^', 251), ('"', 252)]) ]
525
525
526specialAccentedChar :: GenParser Char st Inline
526specialAccentedChar :: GenParser Char st Inline
527−specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig,
527+specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig, lslash,
528 oslash, pound, euro, copyright, sect ]
528 oslash, pound, euro, copyright, sect ]
529
529
530ccedil :: GenParser Char st Inline
530ccedil :: GenParser Char st Inline
@@ -555,6 +555,13 @@ oslash = try $ do
555 let num = if letter' == 'o' then 248 else 216
555 let num = if letter' == 'o' then 248 else 216
556 return $ Str [chr num]
556 return $ Str [chr num]
557
557
558+lslash :: GenParser Char st Inline
559+lslash = try $ do
560+ cmd <- oneOfStrings ["{\\L}","{\\l}","\\L ","\\l "]
561+ return $ if 'l' `elem` cmd
562+ then Str "\x142"
563+ else Str "\x141"
564+
558aelig :: GenParser Char st Inline
565aelig :: GenParser Char st Inline
559aelig = try $ do
566aelig = try $ do
560 char '\\'
567 char '\\'