From 4d1c82de9e0ce213e6c32cd798549c4ddaf9d197 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 6 Jan 2013 19:07:35 -0800
Subject: [PATCH] Docx writer: Use rIdNN identifiers for r:embed in images.
---
src/Text/Pandoc/Writers/Docx.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 9d160598f..069a5f6eb 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -629,7 +629,7 @@ inlineToOpenXML opts (Image alt (src, tit)) = do
Just (i,img) -> return (i, imageSize img)
Nothing -> do
img <- liftIO $ B.readFile src
- ident' <- getUniqueId
+ ident' <- ("rId"++) `fmap` getUniqueId
let size' = imageSize img
modify $ \st -> st{
stImages = M.insert src (ident',img) $ stImages st }