Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx reader: Interpret "Strong" and Emphasis run styles.

Browse source
This commit is contained in:
Jesse Rosenthal 2014-08-13 12:23:03 -04:00
parent 1d6e1cf9f3
commit 6897905602
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Readers/Docx.hs
View file

@ -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)