From 29a4bdc68131d3925a55e0428b35c6a4f75f86e0 Mon Sep 17 00:00:00 2001
From: Marc Schreiber <schrieveslaach@online.de>
Date: Tue, 23 May 2017 17:31:42 -0300
Subject: Add suggestions of @jgm: parse bracketed stuff as inlines

---
 src/Text/Pandoc/Readers/LaTeX.hs | 12 +++++++++---
 test/command/textcolor.md        | 17 +++++++++++++++++
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index a34be46e2..6b44df468 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -418,9 +418,15 @@ blockCommands = M.fromList $
 
 blockTextcolor :: PandocMonad m => LP m Blocks
 blockTextcolor = do
-    skipopts 
-    color <- braced
-    divWith ("",[],[("style","color: " ++ color)]) <$> grouped block <* notFollowedBy inline
+  skipopts 
+  color <- braced
+  let constructor = divWith ("",[],[("style","color: " ++ color)])
+  inlineContents <|> constructor <$> blockContents
+  where inlineContents = do 
+                            ils <- grouped inline
+                            rest <- inlines
+                            return (para (ils <> rest))
+        blockContents = grouped block
 
 graphicsPath :: PandocMonad m => LP m Blocks
 graphicsPath = do
diff --git a/test/command/textcolor.md b/test/command/textcolor.md
index 59b0f6a16..47c41e62d 100644
--- a/test/command/textcolor.md
+++ b/test/command/textcolor.md
@@ -33,3 +33,20 @@ Hello \textcolor{blue}{\textbf{World}}
   [[Para [Str "Item",Space,Str "1"]]
   ,[Para [Str "Item",Space,Str "2"]]]]]
 ```
+
+```
+% pandoc -f latex -t native
+\textcolor{blue}{
+\begin{itemize}
+    \item Item 1
+    \item Item 2
+\end{itemize}
+} some more text
+^D
+[Div ("",[],[("style","color: blue")])
+ [BulletList
+  [[Para [Str "Item",Space,Str "1"]]
+  ,[Para [Str "Item",Space,Str "2"]]]]
+,Para [Str "some",Space,Str "more",Space,Str "text"]]
+```
+
-- 
cgit v1.2.3