@@ -1281,7 +1281,7 @@ inlineToOpenXML' opts (Link _ txt (src,_)) = do
1281 M.insert src i extlinks }
1281 M.insert src i extlinks }
1282 return i
1282 return i
1283 return [ mknode "w:hyperlink" [("r:id",id')] contents ]
1283 return [ mknode "w:hyperlink" [("r:id",id')] contents ]
1284−inlineToOpenXML' opts (Image attr alt (src, title)) = do
1284+inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do
1285 pageWidth <- asks envPrintWidth
1285 pageWidth <- asks envPrintWidth
1286 imgs <- gets stImages
1286 imgs <- gets stImages
@@ -1343,7 +1343,7 @@ inlineToOpenXML' opts (Image attr alt (src, title)) = do
1346− case stImage of
1346+ wrapBookmark imgident =<< case stImage of
1347 Just imgData -> return [generateImgElt imgData]
1347 Just imgData -> return [generateImgElt imgData]
1348 Nothing -> ( do --try
1348 Nothing -> ( do --try
1349 (img, mt) <- P.fetchItem src
1349 (img, mt) <- P.fetchItem src