diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-28 18:23:13 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-28 18:23:13 +0000 |
commit | 5e13f8c320dc001609d50048f68785f0b8b99103 (patch) | |
tree | 865172eff9d3626caec70e8b9c58306fd40340a1 /src/Text/Pandoc/Readers | |
parent | 1be1f77569a5e4e059cf7b4339d9d8384c8afd74 (diff) | |
download | pandoc-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
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 14 |
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 '}') |