1a4489e · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

LaTeX reader: parse \texttt{} as code, as long as there's

1a4489efiddlosopher19 years ago

src/Text/Pandoc/Readers/LaTeX.hs+9−2

@@ -47,7 +47,7 @@ readLaTeX :: ParserState -- ^ Parser state, including options for parser

47readLaTeX = readWith parseLaTeX

49-- characters with special meaning

50−specialChars = "\\$%&^&_~#{}\n \t|<>'\"-"

50+specialChars = "\\$%^&_~#{}\n \t|<>'\"-"

52--

53-- utility functions

@@ -507,12 +507,19 @@ lt = try (string "\\textless") >> return (Str "<")

507

508gt = try (string "\\textgreater") >> return (Str ">")

509

510+code = code1 <|> code2

511+

510−code = try $ do

512+code1 = try $ do

511 string "\\verb"

513 string "\\verb"

512 marker <- anyChar

514 marker <- anyChar

513 result <- manyTill anyChar (char marker)

515 result <- manyTill anyChar (char marker)

514 return $ Code $ removeLeadingTrailingSpace result

516 return $ Code $ removeLeadingTrailingSpace result

515

517

518+code2 = try $ do

519+ string "\\texttt{"

520+ result <- manyTill (noneOf "\\\n~$%^&{}") (char '}')

521+ return $ Code result

522+

516emph = try $ oneOfStrings [ "\\emph{", "\\textit{" ] >>

523emph = try $ oneOfStrings [ "\\emph{", "\\textit{" ] >>

517 manyTill inline (char '}') >>= return . Emph

524 manyTill inline (char '}') >>= return . Emph

518

525