aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorHubert Plociniczak <hubert.plociniczak@gmail.com>2016-10-19 11:40:44 +0200
committerHubert Plociniczak <hubert.plociniczak@gmail.com>2016-10-19 11:40:44 +0200
commitdd799df0aed2df843c6881cec296869b622c0780 (patch)
tree28561752aaf9384f6918e389d94afb9e0d6c7111 /src
parent4a2a7a21e5e8bf0d11abd214d372729eb9eb8d0c (diff)
downloadpandoc-dd799df0aed2df843c6881cec296869b622c0780.tar.gz
Image with a caption needs special formatting
Latex Writer only handles captions if the image's title is prefixed with 'fig:'.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Odt/ContentReader.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/ContentReader.hs b/src/Text/Pandoc/Readers/Odt/ContentReader.hs
index 0b152268f..42f018157 100644
--- a/src/Text/Pandoc/Readers/Odt/ContentReader.hs
+++ b/src/Text/Pandoc/Readers/Odt/ContentReader.hs
@@ -779,8 +779,12 @@ read_frame_text_box = matchingElement NsDraw "text-box"
arr read_img_with_caption -< toList paragraphs
read_img_with_caption :: [Block] -> Inlines
-read_img_with_caption ((Para ((Image attr _ target) : txt)) : _) =
- singleton (Image attr txt target) -- override caption with the text that follows
+read_img_with_caption ((Para ((Image attr alt (src,title)) : [])) : _) =
+ singleton (Image attr alt (src, 'f':'i':'g':':':title)) -- no text, default caption
+read_img_with_caption ((Para ((Image attr _ (src,title)) : txt)) : _) =
+ singleton (Image attr txt (src, 'f':'i':'g':':':title) ) -- override caption with the text that follows
+read_img_with_caption ( (Para (_ : xs)) : ys) =
+ read_img_with_caption ((Para xs) : ys)
read_img_with_caption _ =
mempty