Removed examplep specific stuff in LaTeX reader.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@826 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-07-28 18:23:13 +00:00
parent 1be1f77569
commit 5e13f8c320

View file

@ -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 '}')