From 9400f75506173efcb0591d7b8415da64ea30dadb Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 4 Nov 2023 09:46:46 -0700 Subject: [PATCH] JATS writer: handle case where there is material after refs div. Previously in such cases the references were not being moved to back matter. Closes #9166. --- src/Text/Pandoc/Writers/JATS.hs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs index d6a12b29568d..4ce33e053af3 100644 --- a/src/Text/Pandoc/Writers/JATS.hs +++ b/src/Text/Pandoc/Writers/JATS.hs @@ -113,11 +113,13 @@ docToJATS opts (Pandoc meta blocks') = do $ ensureReferenceHeader blocks' let splitBackBlocks b@(Div ("refs",_,_) _) (fs, bs) = (fs, b:bs) splitBackBlocks (Div (ident,("section":_),_) - [ Header lev (_,hcls,hkvs) hils - , (Div rattrs@("refs",_,_) rs) - ]) (fs, bs) - = (fs, Div rattrs - (Header lev (ident,hcls,hkvs) hils : rs) : bs) + ( Header lev (_,hcls,hkvs) hils + : (Div rattrs@("refs",_,_) rs) + : rest + )) (fs, bs) + = (fs ++ rest, + Div rattrs + (Header lev (ident,hcls,hkvs) hils : rs) : bs) splitBackBlocks b (fs, bs) = (b:fs, bs) let (bodyblocks, backblocks) = foldr splitBackBlocks ([],[]) blocks let colwidth = if writerWrapText opts == WrapAuto