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:
parent
1be1f77569
commit
5e13f8c320
1 changed files with 1 additions and 13 deletions
|
@ -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 '}')
|
||||
|
|
Loading…
Add table
Reference in a new issue