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

Docx writer: Change FigureWithCaption to CaptionedFigure (#3658)

Browse source 
Edit styles.xml as part of the fix for #3656
This commit is contained in:
Ian 2017-05-19 04:34:13 +08:00 • committed by John MacFarlane
parent 0f6458c0c1
commit b9185b0216
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
data/docx/word/styles.xml
View file

@ -400,8 +400,8 @@
<w:name w:val="Figure" />
<w:basedOn w:val="Normal" />
</w:style>
<w:style w:type="paragraph" w:customStyle="1" w:styleId="FigureWithCaption">
<w:name w:val="Figure with Caption" />
<w:style w:type="paragraph" w:customStyle="1" w:styleId="CaptionedFigure">
<w:name w:val="Captioned Figure" />
<w:basedOn w:val="Figure" />
<w:pPr>
<w:keepNext />

2
src/Text/Pandoc/Writers/Docx.hs
View file

@ -875,7 +875,7 @@ blockToOpenXML' opts (Para [Image attr alt (src,'f':'i':'g':':':tit)]) = do
let prop = pCustomStyle $
if null alt
then "Figure"
else "FigureWithCaption"
else "CaptionedFigure"
paraProps <- local (\env -> env { envParaProperties = prop : envParaProperties env }) (getParaProps False)
contents <- inlinesToOpenXML opts [Image attr alt (src,tit)]
captionNode <- withParaProp (pCustomStyle "ImageCaption")