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

Revert "JATS writer: Support citations."

Browse source 
This reverts commit 39889c22df.
This commit is contained in:
John MacFarlane 2019-02-15 10:29:11 -08:00
parent 39889c22df
commit 1cfd0fb33c
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Writers/JATS.hs
View file

@ -377,10 +377,9 @@ inlineToJATS opts SoftBreak
inlineToJATS opts (Note contents) =
-- TODO technically only <p> 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