@@ -685,7 +685,7 @@ verbatimEnv = do
685685 controlSeq "begin"
686686 name <- braced
687687 guard $ name == "verbatim" || name == "Verbatim" ||
688− name == "lstlisting"
688+ name == "lstlisting" || name == "minted"
689689 verbEnv name
690690 rest <- getInput
691691 return (r,rest)
@@ -718,6 +718,8 @@ environments = M.fromList
718718 , ("verbatim", codeBlock <$> (verbEnv "verbatim"))
719719 , ("Verbatim", codeBlock <$> (verbEnv "Verbatim"))
720720 , ("lstlisting", codeBlock <$> (verbEnv "listlisting"))
721+ , ("minted", liftA2 (\l c -> codeBlockWith ("",[l],[]) c)
722+ (grouped (many1 $ satisfy (/= '}'))) (verbEnv "minted"))
721723 , ("displaymath", mathEnv Nothing "displaymath")
722724 , ("equation", mathEnv Nothing "equation")
723725 , ("equation*", mathEnv Nothing "equation*")