@@ -685,7 +685,7 @@ verbatimEnv = do
685 controlSeq "begin"
685 controlSeq "begin"
686 name <- braced
686 name <- braced
687 guard $ name == "verbatim" || name == "Verbatim" ||
687 guard $ name == "verbatim" || name == "Verbatim" ||
688− name == "lstlisting"
688+ name == "lstlisting" || name == "minted"
689 verbEnv name
689 verbEnv name
690 rest <- getInput
690 rest <- getInput
691 return (r,rest)
691 return (r,rest)
@@ -718,6 +718,8 @@ environments = M.fromList
718 , ("verbatim", codeBlock <$> (verbEnv "verbatim"))
718 , ("verbatim", codeBlock <$> (verbEnv "verbatim"))
719 , ("Verbatim", codeBlock <$> (verbEnv "Verbatim"))
719 , ("Verbatim", codeBlock <$> (verbEnv "Verbatim"))
720 , ("lstlisting", codeBlock <$> (verbEnv "listlisting"))
720 , ("lstlisting", codeBlock <$> (verbEnv "listlisting"))
721+ , ("minted", liftA2 (\l c -> codeBlockWith ("",[l],[]) c)
722+ (grouped (many1 $ satisfy (/= '}'))) (verbEnv "minted"))
721 , ("displaymath", mathEnv Nothing "displaymath")
723 , ("displaymath", mathEnv Nothing "displaymath")
722 , ("equation", mathEnv Nothing "equation")
724 , ("equation", mathEnv Nothing "equation")
723 , ("equation*", mathEnv Nothing "equation*")
725 , ("equation*", mathEnv Nothing "equation*")