aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-28 18:23:13 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-28 18:23:13 +0000
commit5e13f8c320dc001609d50048f68785f0b8b99103 (patch)
tree865172eff9d3626caec70e8b9c58306fd40340a1
parent1be1f77569a5e4e059cf7b4339d9d8384c8afd74 (diff)
downloadpandoc-5e13f8c320dc001609d50048f68785f0b8b99103.tar.gz
Removed examplep specific stuff in LaTeX reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@826 788f1e2b-df1e-0410-8736-df70ead52e1b
-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 '}')