From 1415b6831e4c59d6fd1d1c7ae97ea9917e6a905a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 5 Jan 2011 14:57:06 -0800
Subject: LaTeX reader: Support \L \l accents.

---
 src/Text/Pandoc/Readers/LaTeX.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Readers')

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 '\\'
-- 
cgit v1.2.3