Fix ooxml for b6b668ee3f

2026-08-30 17:59:17 +08:00 · 2024-04-13 17:54:33 -07:00
parent b6b668ee3f
commit 11050df108
1 changed files with 7 additions and 6 deletions
@@ -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")