From 5e13f8c320dc001609d50048f68785f0b8b99103 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 28 Jul 2007 18:23:13 +0000
Subject: [PATCH] Removed examplep specific stuff in LaTeX reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@826 788f1e2b-df1e-0410-8736-df70ead52e1b
---
src/Text/Pandoc/Readers/LaTeX.hs | 14 +-------------
1 file changed, 1 insertion(+), 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 '}')