@@ -1120,8 +1120,7 @@ opt = bracketed inline
11201120
11211121rawopt :: PandocMonad m => LP m Text
11221122rawopt = do
1123− symbol '['
1124− inner <- untokenize <$> manyTill anyTok (symbol ']')
1123+ inner <- untokenize <$> bracketedToks
11251124 optional sp
11261125 return $ "[" <> inner <> "]"
11271126
@@ -1789,7 +1788,7 @@ newenvironment = do
17891788bracketedToks :: PandocMonad m => LP m [Tok]
17901789bracketedToks = do
17911790 symbol '['
1792− manyTill anyTok (symbol ']')
1791+ mconcat <$> manyTill (braced <|> (:[]) <$> anyTok) (symbol ']')
17931792
17941793bracketedNum :: PandocMonad m => LP m Int
17951794bracketedNum = do