diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-02-15 10:09:46 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-02-15 10:09:46 -0800 |
| commit | 35df24e698d93d8e9a39099184e62ac0c16770a9 (patch) | |
| tree | d4837a94222ec2b5ea74ec0b153056b1792f4315 /src/Text/Pandoc/Readers/JATS.hs | |
| parent | b6c64bdd81520529ad11a18011351594892a820d (diff) | |
| download | pandoc-35df24e698d93d8e9a39099184e62ac0c16770a9.tar.gz | |
JATS reader: handle citations with multiple references.
The rid attribute can have a space-separated list of ids.
Closes #5310.
Diffstat (limited to 'src/Text/Pandoc/Readers/JATS.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 232bf8b96..52a18347c 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -470,16 +470,19 @@ parseInline (Elem e) = "xref" -> do ils <- innerInlines let rid = attrValue "rid" e + let rids = words rid let refType = ("ref-type",) <$> maybeAttrValue "ref-type" e let attr = (attrValue "id" e, [], maybeToList refType) return $ if refType == Just ("ref-type","bibr") - then cite [Citation{ - citationId = rid - , citationPrefix = [] - , citationSuffix = [] - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0}] ils + then cite + (map (\id' -> + Citation{ citationId = id' + , citationPrefix = [] + , citationSuffix = [] + , citationMode = NormalCitation + , citationNoteNum = 0 + , citationHash = 0}) rids) + ils else linkWith attr ('#' : rid) "" ils "ext-link" -> do ils <- innerInlines |