@@ -1412,7 +1412,7 @@ citeCommand c p s k = do
1412citeArguments :: PandocMonad m
1412citeArguments :: PandocMonad m
1413 => [Inline] -> [Inline] -> String -> LW m (Doc Text)
1413 => [Inline] -> [Inline] -> String -> LW m (Doc Text)
1414citeArguments p s k = do
1414citeArguments p s k = do
1415− let s' = case s of
1415+ let s' = stripLocatorBraces $ case s of
1417 [x] : r) | isPunctuation x -> dropWhile (== Space) r
1417 [x] : r) | isPunctuation x -> dropWhile (== Space) r
1418 (Str (x:xs) : r) | isPunctuation x -> Str xs : r
1418 (Str (x:xs) : r) | isPunctuation x -> Str xs : r
@@ -1425,6 +1425,12 @@ citeArguments p s k = do
1425 (_ , _ ) -> brackets pdoc <> brackets sdoc
1425 (_ , _ ) -> brackets pdoc <> brackets sdoc
1426 return $ optargs <> braces (text k)
1426 return $ optargs <> braces (text k)
1428+-- strip off {} used to define locator in pandoc-citeproc; see #5722
1429+stripLocatorBraces :: [Inline] -> [Inline]
1430+stripLocatorBraces = walk go
1431+ where go (Str xs) = Str $ filter (\c -> c /= '{' && c /= '}') xs
1428citationsToBiblatex :: PandocMonad m => [Citation] -> LW m (Doc Text)
1434citationsToBiblatex :: PandocMonad m => [Citation] -> LW m (Doc Text)
1429citationsToBiblatex
1435citationsToBiblatex