diff options
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index fe46d2e4f..d76a4b2ac 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -527,25 +527,13 @@ gt = try (do string "\\textgreater" return (Str ">")) -code = code1 <|> code2 - -code1 = try (do +code = try (do string "\\verb" marker <- anyChar result <- manyTill anyChar (char marker) let result' = removeLeadingTrailingSpace result return (Code result')) --- examplep package uses \Q{} with backslash-escaped symbols -code2 = try (do - string "\\Q{" - result <- manyTill (alphaNum <|> - try (do{char '\\'; oneOf "XSVB"; return ' '}) <|> - try (do{string "\\n"; return '\n'}) <|> - try (do{char '\\'; anyChar})) (char '}') - let result' = removeLeadingTrailingSpace result - return (Code result')) - emph = try (do oneOfStrings [ "\\emph{", "\\textit{" ] result <- manyTill inline (char '}') |