From 5ac6f88e34a9a7b890d74695b241220718ef18f5 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 9 Feb 2012 14:30:04 -0800
Subject: Better handling of raw latex environments in markdown.

Now

    \begin{equation}
    a_1
    \end{equation}

turns into a raw latex block as expected.
---
 src/Text/Pandoc/Readers/LaTeX.hs | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index ba5676619..b5cb5ef9d 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -648,15 +648,7 @@ verbatimEnv = do
   return (r,rest)
 
 rawLaTeXBlock :: GenParser Char ParserState String
-rawLaTeXBlock =
-  (rawLaTeXEnvironment <|> (snd <$> withRaw blockCommand)) >>= applyMacros'
-
-rawLaTeXEnvironment :: GenParser Char ParserState String
-rawLaTeXEnvironment = try $ do
-  controlSeq "begin"
-  name <- braced
-  let addBegin x = "\\begin{" ++ name ++ "}" ++ x
-  addBegin <$> (withRaw (env name blocks) >>= applyMacros' . snd)
+rawLaTeXBlock = snd <$> withRaw (environment <|> blockCommand)
 
 rawLaTeXInline :: GenParser Char ParserState Inline
 rawLaTeXInline = do
-- 
cgit v1.2.3