diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-01-01 21:44:06 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-01-01 21:44:06 -0800 |
| commit | b9d73428c7d420cf7f07e4e20263d5d705c73f85 (patch) | |
| tree | c7d7d38ed3fa02d62d9a595aa252cbb780ca01f0 | |
| parent | 509e88374bc726f4d1dfe7c7b823ce85994d43e4 (diff) | |
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.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index e4240ca4f..3959585c6 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -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 }) |