aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs14
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 '}')