From e6b7cb608aeb27687b58bad0d83a2dd3f046c118 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Fri, 18 Jul 2008 21:40:29 +0000
Subject: [PATCH] Added proper support for embedded images to opendocument
 writer.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1331 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Writers/OpenDocument.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs
index 630dd622f..6b3d65422 100644
--- a/Text/Pandoc/Writers/OpenDocument.hs
+++ b/Text/Pandoc/Writers/OpenDocument.hs
@@ -383,7 +383,7 @@ inlineToOpenDocument o ils
     | TeX         s <- ils = preformatted s
     | HtmlInline  s <- ils = preformatted s
     | Link  l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
-    | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
+    | Image l (s,t) <- ils = mkImg  s t <$> inlinesToOpenDocument o l
     | Note        l <- ils = mkNote l
     | otherwise            = return empty
     where
@@ -392,6 +392,11 @@ inlineToOpenDocument o ils
                                            , ("xlink:href" , s       )
                                            , ("office:name", t       )
                                            ] . inSpanTags "Definition"
+      mkImg  s _ l = ($$) l . inTags False "draw:frame" [] $
+                     selfClosingTag "draw:image" [ ("xlink:href"   , s       )
+                                                 , ("xlink:type"   , "simple")
+                                                 , (" xlink:show"  , "embed" )
+                                                 , ("xlink:actuate", "onLoad")]
       mkNote     l = do
         n <- length <$> gets stNotes
         let footNote t = inTags False "text:note"