Docx writer: Fix custom styles with spaces in the name.

Custom styles with spaces worked for divs but not for spans. This commit fixes the problem. Closes #3290.
2026-09-24 15:44:59 +08:00 · 2018-01-01 21:44:06 -08:00
parent 509e88374b
commit b9d73428c7
1 changed files with 1 additions and 1 deletions
@@ -1134,7 +1134,7 @@ inlineToOpenXML' opts (Span (ident,classes,kvs) ils) = do
                      modify $ \s ->
                        s{stDynamicTextProps = Set.insert sty
                              (stDynamicTextProps s)}
-                      return $ withTextProp (rCustomStyle sty)
+                      return $ withTextPropM (rStyleM sty)
                   _ -> return id
  let dirmod = case lookup "dir" kvs of
                 Just "rtl" -> local (\env -> env { envRTL = True })