From 11050df108eb9e32726abf06804646cfc3686680 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 13 Apr 2024 17:54:33 -0700 Subject: [PATCH] Fix ooxml for b6b668ee3f3ac7782154171f7a078d5857d97dfc --- src/Text/Pandoc/Writers/Docx.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index dcd10bcb8..0d5da9593 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -824,12 +824,13 @@ mkLvl marker lvl = mknode "w:ind" [ ("w:left",tshow $ lvl * step + step) , ("w:hanging",tshow hang) ] () - : maybe [] - (\font -> [ mknode "w:rFonts" [ ("w:ascii", font) - , ("w:hAnsi", font) - , ("w:cs", font) - , ("w:hint", "default") ] () ]) mbfont - ] + ] ++ + maybe [] (\font -> + [ mknode "w:rPr" [] + [ mknode "w:rFonts" [ ("w:ascii", font) + , ("w:hAnsi", font) + , ("w:cs", font) + , ("w:hint", "default") ] () ]]) mbfont where (fmt, lvltxt, mbfont, start) = case marker of NoMarker -> ("bullet"," ", Nothing, "1")