@@ -1056,8 +1056,10 @@ elemToRunStyle ns element parentStyle
1056 | Just rPr <- findChildByName ns "w" "rPr" element =
1056 | Just rPr <- findChildByName ns "w" "rPr" element =
1057 RunStyle
1057 RunStyle
1059− isBold = checkOnOff ns rPr (elemName ns "w" "b")
1059+ isBold = checkOnOff ns rPr (elemName ns "w" "b") `mplus`
1060+ checkOnOff ns rPr (elemName ns "w" "bCs")
1060− , isItalic = checkOnOff ns rPr (elemName ns "w" "i")
1061+ , isItalic = checkOnOff ns rPr (elemName ns "w" "i") `mplus`
1062+ checkOnOff ns rPr (elemName ns "w" "iCs")
1061 , isSmallCaps = checkOnOff ns rPr (elemName ns "w" "smallCaps")
1063 , isSmallCaps = checkOnOff ns rPr (elemName ns "w" "smallCaps")
1062 , isStrike = checkOnOff ns rPr (elemName ns "w" "strike")
1064 , isStrike = checkOnOff ns rPr (elemName ns "w" "strike")
1063 , rVertAlign =
1065 , rVertAlign =