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

Docx writer: Fixed a couple bugs in Figure numbering.

Browse source
This commit is contained in:
John MacFarlane 2021-06-29 11:15:13 -07:00
parent a3d745e485
commit a01ba4463f
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -856,7 +856,7 @@ blockToOpenXML' opts (Plain lst) = do
blockToOpenXML' opts (Para [Image attr alt (src,T.stripPrefix "fig:" -> Just tit)]) = do
setFirstPara
fignum <- gets stNextFigureNum
modify $ \st -> st{ stNextFigureNum = fignum + 1 }
unless (null alt) $ modify $ \st -> st{ stNextFigureNum = fignum + 1 }
let figid = "fig" <> tshow fignum
figname <- translateTerm Term.Figure
prop <- pStyleM $
@ -870,10 +870,9 @@ blockToOpenXML' opts (Para [Image attr alt (src,T.stripPrefix "fig:" -> Just tit
else withParaPropM (pStyleM "Image Caption")
$ blockToOpenXML opts
(Para $ Span (figid,[],[])
[Str "Figure\160",
[Str (figname <> "\160"),
RawInline (Format "openxml")
("<w:fldSimple w:instr=\"SEQ "
<> figname
("<w:fldSimple w:instr=\"SEQ Figure"
<> " \\* ARABIC \"><w:r><w:t>"
<> tshow fignum
<> "</w:t></w:r></w:fldSimple>"),