From 96a01451efd487d0f6a91a2785fd28be001a92bf Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Fri, 12 Nov 2021 13:07:25 +0100
Subject: JATS writer: ensure figures are wrapped with `<p>` in list items.

This prevents the generation of invalid output.
---
 src/Text/Pandoc/Writers/JATS.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index d58da8bd2..799fe29fa 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -551,6 +551,7 @@ inlineToJATS _ (Image (ident,_,kvs) _ (src, tit)) = do
   return $ selfClosingTag "inline-graphic" attr
 
 isParaOrList :: Block -> Bool
+isParaOrList SimpleFigure{}   = False  -- implicit figures are not paragraphs
 isParaOrList Para{}           = True
 isParaOrList Plain{}          = True
 isParaOrList BulletList{}     = True
-- 
cgit v1.2.3