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