From d13b0bfe8aaf024edbff8525aa3cb2fdb451b429 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 8 Nov 2025 15:07:05 +0100
Subject: ICML writer: base FirstParagraph styles on corresponding...

Paragraph styles.  This should ensure that existing documents
still work with the FirstParagraph style, without the need
to define new styles.
---
 src/Text/Pandoc/Writers/ICML.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/ICML.hs b/src/Text/Pandoc/Writers/ICML.hs
index d5a52ec90..58d48a5e3 100644
--- a/src/Text/Pandoc/Writers/ICML.hs
+++ b/src/Text/Pandoc/Writers/ICML.hs
@@ -37,6 +37,7 @@ import Text.Pandoc.Templates (renderTemplate)
 import Text.Pandoc.Writers.Math (texMathToInlines)
 import Text.Pandoc.Writers.Shared
 import Text.Pandoc.XML
+import qualified Data.Text as T
 
 type Style = [Text]
 type Hyperlink = [(Int, Text)]
@@ -238,7 +239,11 @@ parStylesToDoc st = vcat $ map makeStyle $ Set.toAscList $ blockStyles st
               font = if codeBlockName `Text.isInfixOf` s
                         then monospacedFont
                         else empty
-              basedOn = inTags False "BasedOn" [("type", "object")] (text "$ID/NormalParagraphStyle") $$ font
+              baseStyle = if firstParagraphName `T.isSuffixOf` s
+                             then T.replace firstParagraphName paragraphName s
+                             else "$ID/NormalParagraphStyle"
+              basedOn = inTags False "BasedOn" [("type", "object")]
+                             (literal baseStyle) $$ font
               tabList = if isBulletList
                            then inTags True "TabList" [("type","list")] $ inTags True "ListItem" [("type","record")]
                                 $ vcat [
-- 
cgit v1.2.3