From 06e207c66243e2e57925118b005027a996faa488 Mon Sep 17 00:00:00 2001 From: Nikolay Yakimov Date: Wed, 7 Nov 2018 23:17:26 +0300 Subject: [Docx Writer] Add bookmarks to images --- src/Text/Pandoc/Writers/Docx.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 935e9e465..3419abb8b 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -1281,7 +1281,7 @@ inlineToOpenXML' opts (Link _ txt (src,_)) = do M.insert src i extlinks } return i return [ mknode "w:hyperlink" [("r:id",id')] contents ] -inlineToOpenXML' opts (Image attr alt (src, title)) = do +inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do pageWidth <- asks envPrintWidth imgs <- gets stImages let @@ -1343,7 +1343,7 @@ inlineToOpenXML' opts (Image attr alt (src, title)) = do in imgElt - case stImage of + wrapBookmark imgident =<< case stImage of Just imgData -> return [generateImgElt imgData] Nothing -> ( do --try (img, mt) <- P.fetchItem src -- cgit v1.2.3