@@ -377,9 +377,10 @@ inlineToJATS opts SoftBreak
377inlineToJATS opts (Note contents) =
377inlineToJATS opts (Note contents) =
378 -- TODO technically only <p> tags are allowed inside
378 -- TODO technically only <p> tags are allowed inside
379 inTagsIndented "fn" <$> blocksToJATS opts contents
379 inTagsIndented "fn" <$> blocksToJATS opts contents
380−inlineToJATS opts (Cite _ lst) =
380+inlineToJATS opts (Cite cs lst) = do
381− -- TODO revisit this after examining the jats.csl pipeline
382− inlinesToJATS opts lst
381+ contents <- inlinesToJATS opts lst
382+ let rid = unwords $ map citationId cs
383+ return $ inTags False "xref" [("ref-type","bibr"),("rid",rid)] contents
383inlineToJATS opts (Span ("",_,[]) ils) = inlinesToJATS opts ils
384inlineToJATS opts (Span ("",_,[]) ils) = inlinesToJATS opts ils
384inlineToJATS opts (Span (ident,_,kvs) ils) = do
385inlineToJATS opts (Span (ident,_,kvs) ils) = do
385 contents <- inlinesToJATS opts ils
386 contents <- inlinesToJATS opts ils