@@ -148,19 +148,27 @@ litChar = escapedChar'
148148-- | Parse a sequence of inline elements between square brackets,
149149-- including inlines between balanced pairs of square brackets.
150150inlinesInBalancedBrackets :: PandocMonad m => MarkdownParser m (F Inlines)
151−inlinesInBalancedBrackets = try $ char '[' >> go 1
152− where go :: PandocMonad m => Int -> MarkdownParser m (F Inlines)
153− go 0 = return mempty
154− go openBrackets =
155− (mappend <$> (bracketedSpan <|> link <|> image) <*>
156− go openBrackets)
157− <|> ((if openBrackets > 1
158− then (return (B.str "]") <>)
159− else id) <$>
160− (char ']' >> go (openBrackets - 1)))
161− <|> ((return (B.str "[") <>) <$>
162− (char '[' >> go (openBrackets + 1)))
163− <|> (mappend <$> inline <*> go openBrackets)
151+inlinesInBalancedBrackets =
152+ try $ char '[' >> withRaw (go 1) >>=
153+ parseFromString inlines . stripBracket . snd
154+ where stripBracket [] = []
155+ stripBracket xs = if last xs == ']' then init xs else xs
156+ go :: PandocMonad m => Int -> MarkdownParser m ()
157+ go 0 = return ()
158+ go openBrackets = do
159+ (() <$ (escapedChar <|>
160+ code <|>
161+ rawHtmlInline <|>
162+ rawLaTeXInline') >> go openBrackets)
163+ <|>
164+ (do char ']'
165+ if openBrackets > 1
166+ then go (openBrackets - 1)
167+ else return ())
168+ <|>
169+ (char '[' >> go (openBrackets + 1))
170+ <|>
171+ (anyChar >> go openBrackets)
164172
165173--
166174-- document structure