aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Docx.hs
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-08-13 12:23:03 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-08-13 12:23:03 -0400
commit689790560271068a9f7b427869260b8ee8e6989e (patch)
treebd6fe20eaf67fa1eb2e3bdc90593d93c70f6c95c /src/Text/Pandoc/Readers/Docx.hs
parent1d6e1cf9f3d45147538aee639e00a3ae95260055 (diff)
downloadpandoc-689790560271068a9f7b427869260b8ee8e6989e.tar.gz
Docx reader: Interpret "Strong" and Emphasis run styles.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx.hs')
-rw-r--r--src/Text/Pandoc/Readers/Docx.hs8
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)