From c46febaaeef1c203f5bbb88d845ad5554622f609 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 10 Mar 2017 09:46:32 +0100
Subject: Expand \newenvironment macros.

Closes #987.

Depends on still unreleased texmath 0.9.3.
---
 src/Text/Pandoc/Readers/LaTeX.hs | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 48266f894..7018d2ce3 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -971,17 +971,19 @@ rawEnv name = do
   let parseRaw = extensionEnabled Ext_raw_tex exts
   rawOptions <- mconcat <$> many rawopt
   let beginCommand = "\\begin{" ++ name ++ "}" ++ rawOptions
-  unless parseRaw $ do
-    pos1 <- getPosition
-    report $ SkippedContent beginCommand pos1
+  pos1 <- getPosition
   (bs, raw) <- withRaw $ env name blocks
-  raw' <- applyMacros' raw
-  if parseRaw
-     then return $ rawBlock "latex" $ beginCommand ++ raw'
-     else do
-       pos2 <- getPosition
-       report $ SkippedContent ("\\end{" ++ name ++ "}") pos2
-       return bs
+  raw' <- applyMacros' $ beginCommand ++ raw
+  if raw' /= beginCommand ++ raw
+     then parseFromString blocks raw'
+     else if parseRaw
+          then return $ rawBlock "latex" $ beginCommand ++ raw'
+          else do
+            unless parseRaw $ do
+              report $ SkippedContent beginCommand pos1
+            pos2 <- getPosition
+            report $ SkippedContent ("\\end{" ++ name ++ "}") pos2
+            return bs
 
 ----
 
-- 
cgit v1.2.3