From 5ed86e69c47c3ac1a9d803ac3e52c8c09a025b4e Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 26 Oct 2023 17:04:55 -0700 Subject: Make `reference-section-title` work with `jats+element_citations`. Closes #9021. --- src/Text/Pandoc/Writers/JATS.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs index 153dfc133..d6a12b295 100644 --- a/src/Text/Pandoc/Writers/JATS.hs +++ b/src/Text/Pandoc/Writers/JATS.hs @@ -292,7 +292,13 @@ blockToJATS opts (Div ("refs",_,_) xs) = do refs <- asks jatsReferences contents <- if null refs then blocksToJATS opts xs - else referencesToJATS opts refs + else do + titleElement <- case xs of + (Header _ _ title:_) -> + inTagsSimple "title" <$> inlinesToJATS opts title + _ -> return mempty + elementRefs <- referencesToJATS opts refs + return $ titleElement $$ elementRefs return $ inTagsIndented "ref-list" contents blockToJATS opts (Div (ident,[cls],kvs) bs) | cls `elem` ["fig", "caption", "table-wrap"] = do contents <- blocksToJATS opts bs -- cgit v1.2.3