From 5e13f8c320dc001609d50048f68785f0b8b99103 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 28 Jul 2007 18:23:13 +0000 Subject: 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(-) (limited to 'src/Text') 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 '}') -- cgit v1.2.3