Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

JATS writer: keep quotes in element-citations

Browse source 
The JATS writer was losing quotes in element-citations, as it uses the
`T.P.Citeproc.getReferences` function to get references. That function
replaces `Quoted` elements with spans. That transformation is required
in `T.P.Citeproc.processCitations`, so it has been moved there.
This commit is contained in:
Albert Krewinkel 2021-12-19 20:05:58 +01:00 • committed by John MacFarlane
parent 74c2d9eb07
commit f8f03c2ffc
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Citeproc.hs
View file

@ -55,7 +55,10 @@ processCitations (Pandoc meta bs) = do
mblang <- getCiteprocLang meta mblang <- getCiteprocLang meta
let locale = Citeproc.mergeLocales mblang style let locale = Citeproc.mergeLocales mblang style
refs <- getReferences (Just locale) (Pandoc meta bs) let addQuoteSpan (Quoted _ xs) = Span ("",["csl-quoted"],[]) xs
addQuoteSpan x = x
refs <- map (walk addQuoteSpan) <$>
getReferences (Just locale) (Pandoc meta bs)
let otherIdsMap = foldr (\ref m -> let otherIdsMap = foldr (\ref m ->
case T.words . extractText <$> case T.words . extractText <$>
@ -206,10 +209,7 @@ getReferences mblocale (Pandoc meta bs) = do
Just fp -> getRefsFromBib locale idpred fp Just fp -> getRefsFromBib locale idpred fp
Nothing -> return [] Nothing -> return []
Nothing -> return [] Nothing -> return []
let addQuoteSpan (Quoted _ xs) = Span ("",["csl-quoted"],[]) xs return $ map legacyDateRanges (externalRefs ++ inlineRefs)
addQuoteSpan x = x
return $ map (legacyDateRanges . walk addQuoteSpan)
(externalRefs ++ inlineRefs)
-- note that inlineRefs can override externalRefs -- note that inlineRefs can override externalRefs