@@ -949,8 +949,8 @@ verbatimEnv' = fmap snd <$>
949949 withRaw $ try $ do
950950 string "\\begin"
951951 name <- braced'
952− guard $ name `elem` ["verbatim", "Verbatim", "lstlisting",
953− "minted", "alltt", "comment"]
952+ guard $ name `elem` ["verbatim", "Verbatim", "BVerbatim",
953+ "lstlisting", "minted", "alltt", "comment"]
954954 manyTill anyChar (try $ string $ "\\end{" ++ name ++ "}")
955955
956956blob' :: IncludeParser
@@ -1105,14 +1105,8 @@ environments = M.fromList
11051105 verbEnv "code"))
11061106 , ("comment", mempty <$ verbEnv "comment")
11071107 , ("verbatim", codeBlock <$> verbEnv "verbatim")
1108− , ("Verbatim", do options <- option [] keyvals
1109− let kvs = [ (if k == "firstnumber"
1110− then "startFrom"
1111− else k, v) | (k,v) <- options ]
1112− let classes = [ "numberLines" |
1113− lookup "numbers" options == Just "left" ]
1114− let attr = ("",classes,kvs)
1115− codeBlockWith attr <$> verbEnv "Verbatim")
1108+ , ("Verbatim", fancyverbEnv "Verbatim")
1109+ , ("BVerbatim", fancyverbEnv "BVerbatim")
11161110 , ("lstlisting", do options <- option [] keyvals
11171111 let kvs = [ (if k == "firstnumber"
11181112 then "startFrom"
@@ -1223,6 +1217,17 @@ verbEnv name = do
12231217 res <- manyTill anyChar endEnv
12241218 return $ stripTrailingNewlines res
12251219
1220+fancyverbEnv :: String -> LP Blocks
1221+fancyverbEnv name = do
1222+ options <- option [] keyvals
1223+ let kvs = [ (if k == "firstnumber"
1224+ then "startFrom"
1225+ else k, v) | (k,v) <- options ]
1226+ let classes = [ "numberLines" |
1227+ lookup "numbers" options == Just "left" ]
1228+ let attr = ("",classes,kvs)
1229+ codeBlockWith attr <$> verbEnv name
1230+
12261231orderedList' :: LP Blocks
12271232orderedList' = do
12281233 optional sp