diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-18 21:40:29 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-18 21:40:29 +0000 |
commit | e6b7cb608aeb27687b58bad0d83a2dd3f046c118 (patch) | |
tree | 4e83ec59f50bccf252f9b9c8ad1a9cd3fd059901 /Text/Pandoc | |
parent | 333f3c607fb0605586aaa5410144bd11660fda1b (diff) | |
download | pandoc-e6b7cb608aeb27687b58bad0d83a2dd3f046c118.tar.gz |
Added proper support for embedded images to opendocument writer.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1331 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc')
-rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 7 |
1 files changed, 6 insertions, 1 deletions
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" |