diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-31 23:15:37 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-31 23:15:37 +0000 |
commit | 504a61a97b9dbd0b55b2b06fd2c1f547d71a1fa1 (patch) | |
tree | 7d819e3b23c44ddf78c6e1110fdbde9f35be5b92 /Text/Pandoc/Writers/OpenDocument.hs | |
parent | ab2844dc5ba8008017c360b4c85ec9fea9b587a4 (diff) | |
download | pandoc-504a61a97b9dbd0b55b2b06fd2c1f547d71a1fa1.tar.gz |
OpenDocument writer: don't print alt text with Image.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1344 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers/OpenDocument.hs')
-rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index 6b3d65422..cbf15214f 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 = mkImg s t <$> inlinesToOpenDocument o l + | Image _ (s,_) <- ils = return $ mkImg s | Note l <- ils = mkNote l | otherwise = return empty where @@ -392,7 +392,7 @@ inlineToOpenDocument o ils , ("xlink:href" , s ) , ("office:name", t ) ] . inSpanTags "Definition" - mkImg s _ l = ($$) l . inTags False "draw:frame" [] $ + mkImg s = inTags False "draw:frame" [] $ selfClosingTag "draw:image" [ ("xlink:href" , s ) , ("xlink:type" , "simple") , (" xlink:show" , "embed" ) |