git.iko.soy/typeable/pandoc
on master help sign in
OpenDocument writer: don't print alt text with Image.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1344 788f1e2b-df1e-0410-8736-df70ead52e1b

commit504a61a97b9dbd0b55b2b06fd2c1f547d71a1fa1 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateThu 31 Jul 2008, 23:15 (18 years ago) parentab2844d
1 file changed+2−2
compare with master
unifiedsplit
Text/Pandoc/Writers/OpenDocument.hs+2−2
Text/Pandoc/Writers/OpenDocument.hs+2−2
@@ -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 = mkImg s t <$> inlinesToOpenDocument o l
386+ | Image _ (s,_) <- ils = return $ mkImg s
387387 | Note l <- ils = mkNote l
388388 | otherwise = return empty
389389 where
@@ -392,7 +392,7 @@ inlineToOpenDocument o ils
392392 , ("xlink:href" , s )
393393 , ("office:name", t )
394394 ] . inSpanTags "Definition"
395− mkImg s _ l = ($$) l . inTags False "draw:frame" [] $
395+ mkImg s = inTags False "draw:frame" [] $
396396 selfClosingTag "draw:image" [ ("xlink:href" , s )
397397 , ("xlink:type" , "simple")
398398 , (" xlink:show" , "embed" )