@@ -383,7 +383,7 @@ inlineToOpenDocument o ils
383383 | TeX s <- ils = preformatted s
384384 | HtmlInline s <- ils = preformatted s
385385 | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
386− | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
386+ | Image l (s,t) <- ils = mkImg s t <$> inlinesToOpenDocument o l
387387 | Note l <- ils = mkNote l
388388 | otherwise = return empty
389389 where
@@ -392,6 +392,11 @@ inlineToOpenDocument o ils
392392 , ("xlink:href" , s )
393393 , ("office:name", t )
394394 ] . inSpanTags "Definition"
395+ mkImg s _ l = ($$) l . inTags False "draw:frame" [] $
396+ selfClosingTag "draw:image" [ ("xlink:href" , s )
397+ , ("xlink:type" , "simple")
398+ , (" xlink:show" , "embed" )
399+ , ("xlink:actuate", "onLoad")]
395400 mkNote l = do
396401 n <- length <$> gets stNotes
397402 let footNote t = inTags False "text:note"