From 1cfd0fb33c77815a5ebe21403bf6b234668154fa Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 15 Feb 2019 10:29:11 -0800 Subject: Revert "JATS writer: Support citations." This reverts commit 39889c22df578a4310bcf549fcd507c08fbf1416. --- src/Text/Pandoc/Writers/JATS.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs index 34c9828eb..03bcde414 100644 --- a/src/Text/Pandoc/Writers/JATS.hs +++ b/src/Text/Pandoc/Writers/JATS.hs @@ -377,10 +377,9 @@ inlineToJATS opts SoftBreak inlineToJATS opts (Note contents) = -- TODO technically only

tags are allowed inside inTagsIndented "fn" <$> blocksToJATS opts contents -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 (Cite _ lst) = + -- TODO revisit this after examining the jats.csl pipeline + inlinesToJATS opts lst inlineToJATS opts (Span ("",_,[]) ils) = inlinesToJATS opts ils inlineToJATS opts (Span (ident,_,kvs) ils) = do contents <- inlinesToJATS opts ils -- cgit v1.2.3