@@ -244,7 +244,8 @@ escapeLexer = try $ do
244244
245245 escFont :: PandocMonad m => ManLexer m String
246246 escFont = do
247− font <- choice [ S.singleton <$> letterFontKind
247+ font <- choice
248+ [ S.singleton <$> letterFontKind
248249 , char '(' >> anyChar >> anyChar >> return (S.singleton Regular)
249250 , try lettersFont
250251 , digit >> return (S.singleton Regular)
@@ -256,16 +257,16 @@ escapeLexer = try $ do
256257 lettersFont = do
257258 char '['
258259 fs <- many letterFontKind
259− many letter
260+ skipMany letter
260261 char ']'
261262 return $ S.fromList fs
262263
263264 letterFontKind :: PandocMonad m => ManLexer m FontKind
264265 letterFontKind = choice [
265− char 'B' >> return Bold
266− , char 'I' >> return Italic
267− , char 'C' >> return Monospace
268− , (char 'P' <|> char 'R') >> return Regular
266+ oneOf ['B','b'] >> return Bold
267+ , oneOf ['I','i'] >> return Italic
268+ , oneOf ['C','c'] >> return Monospace
269+ , oneOf ['P','p','R','r'] >> return Regular
269270 ]
270271
271272 escUnknown :: PandocMonad m => String -> a -> ManLexer m a