diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-05 15:24:20 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-05 15:24:20 -0800 |
| commit | 18e7a7a49573a1256f4419fe03ad4b23749160c3 (patch) | |
| tree | c1bb17893f7c52f4acb71f0f47cef9cfcf049e90 | |
| parent | 1415b6831e4c59d6fd1d1c7ae97ea9917e6a905a (diff) | |
| download | pandoc-18e7a7a49573a1256f4419fe03ad4b23749160c3.tar.gz | |
LaTeX reader: Don't handle \label and \ref specially.
Put labels in {} instead of ().
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 83f1c899f..4d3344ff4 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -469,8 +469,6 @@ inline = choice [ str , strikeout , superscript , subscript - , ref - , lab , code , url , link @@ -709,15 +707,6 @@ emDash = try (string "---") >> return EmDash hyphen :: GenParser Char st Inline hyphen = char '-' >> return (Str "-") -lab :: GenParser Char st Inline -lab = try $ do - string "\\label{" - result <- manyTill anyChar (char '}') - return $ Str $ "(" ++ result ++ ")" - -ref :: GenParser Char st Inline -ref = try (string "\\ref{") >> manyTill anyChar (char '}') >>= return . Str - strong :: GenParser Char ParserState Inline strong = try (string "\\textbf{") >> manyTill inline (char '}') >>= return . Strong |