diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/EndNote.hs | 10 | ||||
| -rw-r--r-- | test/endnotexml-reader.native | 17 |
2 files changed, 25 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/EndNote.hs b/src/Text/Pandoc/Readers/EndNote.hs index 0ad5a117e..586dcf451 100644 --- a/src/Text/Pandoc/Readers/EndNote.hs +++ b/src/Text/Pandoc/Readers/EndNote.hs @@ -61,7 +61,15 @@ readEndNoteXML :: (PandocMonad m, ToSources a) readEndNoteXML _opts inp = do let sources = toSources inp refs <- readEndNoteXMLReferences sources >>= mapM (traverse (return . text)) - return $ setMeta "references" (map referenceToMetaValue refs) $ B.doc mempty + return $ + setMeta "nocite" (cite [Citation {citationId = "*" + , citationPrefix = [] + , citationSuffix = [] + , citationMode = NormalCitation + , citationNoteNum = 0 + , citationHash = 0}] (str "[@*]")) $ + setMeta "references" (map referenceToMetaValue refs) $ + B.doc mempty readEndNoteXMLCitation :: PandocMonad m => Sources -> m (Citeproc.Citation Text) diff --git a/test/endnotexml-reader.native b/test/endnotexml-reader.native index 6e346e9fb..3ff412da6 100644 --- a/test/endnotexml-reader.native +++ b/test/endnotexml-reader.native @@ -2,7 +2,22 @@ Pandoc Meta { unMeta = fromList - [ ( "references" + [ ( "nocite" + , MetaInlines + [ Cite + [ Citation + { citationId = "*" + , citationPrefix = [] + , citationSuffix = [] + , citationMode = NormalCitation + , citationNoteNum = 0 + , citationHash = 0 + } + ] + [ Str "[@*]" ] + ] + ) + , ( "references" , MetaList [ MetaMap (fromList |