@@ -559,7 +559,9 @@ tok = try $ spaces >> grouped inline <|> inlineCommand' <|> singleChar'
559 return $ str t
559 return $ str t
561opt :: PandocMonad m => LP m Inlines
561opt :: PandocMonad m => LP m Inlines
562−opt = bracketed inline <|> (str <$> rawopt)
562+opt = bracketed inline
564+ (str . T.dropWhile (=='[') . T.dropWhileEnd (==']') <$> rawopt)
564paropt :: PandocMonad m => LP m Inlines
566paropt :: PandocMonad m => LP m Inlines
565paropt = parenWrapped inline
567paropt = parenWrapped inline