@@ -1031,6 +1031,19 @@ rawEnv name = do
10311031 report $ SkippedContent ("\\end{" ++ name ++ "}") pos2
10321032 return bs
10331033
1034+rawVerbEnv :: PandocMonad m => String -> LP m Blocks
1035+rawVerbEnv name = do
1036+ pos <- getPosition
1037+ (_, raw) <- withRaw $ verbEnv name
1038+ let raw' = "\\begin{tikzpicture}" ++ raw
1039+ exts <- getOption readerExtensions
1040+ let parseRaw = extensionEnabled Ext_raw_tex exts
1041+ if parseRaw
1042+ then return $ rawBlock "latex" raw'
1043+ else do
1044+ report $ SkippedContent raw' pos
1045+ return mempty
1046+
10341047----
10351048
10361049maybeAddExtension :: String -> FilePath -> FilePath
@@ -1200,6 +1213,7 @@ environments = M.fromList
12001213 , ("align*", mathEnvWith para (Just "aligned") "align*")
12011214 , ("alignat", mathEnvWith para (Just "aligned") "alignat")
12021215 , ("alignat*", mathEnvWith para (Just "aligned") "alignat*")
1216+ , ("tikzpicture", rawVerbEnv "tikzpicture")
12031217 ]
12041218
12051219figure :: PandocMonad m => LP m Blocks