From 39889c22df578a4310bcf549fcd507c08fbf1416 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 15 Feb 2019 10:26:40 -0800
Subject: JATS writer: Support citations.

---
 src/Text/Pandoc/Writers/JATS.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 03bcde414..34c9828eb 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -377,9 +377,10 @@ inlineToJATS opts SoftBreak
 inlineToJATS opts (Note contents) =
   -- TODO technically only <p> tags are allowed inside
   inTagsIndented "fn" <$> blocksToJATS opts contents
-inlineToJATS opts (Cite _ lst) =
-  -- TODO revisit this after examining the jats.csl pipeline
-  inlinesToJATS opts lst
+inlineToJATS opts (Cite cs lst) = do
+  contents <- inlinesToJATS opts lst
+  let rid = unwords $ map citationId cs
+  return $ inTags False "xref" [("ref-type","bibr"),("rid",rid)] contents
 inlineToJATS opts (Span ("",_,[]) ils) = inlinesToJATS opts ils
 inlineToJATS opts (Span (ident,_,kvs) ils) = do
   contents <- inlinesToJATS opts ils
-- 
cgit v1.2.3