diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-13 12:23:03 -0400 |
---|---|---|
committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-13 12:23:03 -0400 |
commit | 689790560271068a9f7b427869260b8ee8e6989e (patch) | |
tree | bd6fe20eaf67fa1eb2e3bdc90593d93c70f6c95c | |
parent | 1d6e1cf9f3d45147538aee639e00a3ae95260055 (diff) | |
download | pandoc-689790560271068a9f7b427869260b8ee8e6989e.tar.gz |
Docx reader: Interpret "Strong" and Emphasis run styles.
-rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index dcc2122bd..7697c29fa 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -214,10 +214,14 @@ runStyleToContainers rPr = resolveFmt bool Nothing = bool formatters = map Container $ mapMaybe id - [ if resolveFmt (rStyle rPr == Just "Bold") (isBold rPr) + [ if resolveFmt + (rStyle rPr `elem` [Just "Strong", Just "Bold"]) + (isBold rPr) then (Just Strong) else Nothing - , if resolveFmt (rStyle rPr == Just "Italic") (isItalic rPr) + , if resolveFmt + (rStyle rPr `elem` [Just"Emphasis", Just "Italic"]) + (isItalic rPr) then (Just Emph) else Nothing , if resolveFmt False (isSmallCaps rPr) |