OpenDocument writer: Implement figure numbering in captions (#4944)

Figure captions are now numbered 1, 2, 3, ... The format in
the caption is "Figure 1: <caption>" and so on.

This is necessary in order for libreoffice to generate an
Illustration Index (Table of Figures) for included figures.

1 files changed, 13 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs
index cb29e390a..cd907bbea 100644
--- a/src/Text/Pandoc/Writers/OpenDocument.hs
+++ b/src/Text/Pandoc/Writers/OpenDocument.hs
@@ -411,10 +411,22 @@ blockToOpenDocument o bs
       figure attr caption source title | null caption =
         withParagraphStyle o "Figure" [Para [Image attr caption (source,title)]]
                                   | otherwise    = do
+        id' <- gets stImageId
         imageDoc <- withParagraphStyle o "FigureWithCaption" [Para [Image attr caption (source,title)]]
-        captionDoc <- withParagraphStyle o "FigureCaption" [Para caption]
+        captionDoc <- numberedFigureCaption id' <$> inlinesToOpenDocument o caption
         return $ imageDoc $$ captionDoc
 
+numberedFigureCaption :: Int -> Doc -> Doc
+numberedFigureCaption num caption =
+    let t = text "Figure "
+        r = num - 1
+        s = inTags False "text:sequence" [ ("text:ref-name", "refIllustration" ++ show r),
+                                           ("text:name", "Illustration"),
+                                           ("text:formula", "ooow:Illustration+1"),
+                                           ("style:num-format", "1") ] $ text $ show num
+        c = text ": "
+    in inParagraphTagsWithStyle "FigureCaption" $ hcat [ t, s, c, caption ]
+
 colHeadsToOpenDocument :: PandocMonad m
                        => WriterOptions -> [String] -> [[Block]]
                        -> OD m Doc