Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

OpenDocument writer: don't print alt text with Image.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1344 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-07-31 23:15:37 +00:00
parent ab2844dc5b
commit 504a61a97b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Text/Pandoc/Writers/OpenDocument.hs
View file

@ -383,7 +383,7 @@ inlineToOpenDocument o ils
| TeX s <- ils = preformatted s | TeX s <- ils = preformatted s
| HtmlInline s <- ils = preformatted s | HtmlInline s <- ils = preformatted s
| Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l | 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 | Note l <- ils = mkNote l
| otherwise = return empty | otherwise = return empty
where where
@ -392,7 +392,7 @@ inlineToOpenDocument o ils
, ("xlink:href" , s ) , ("xlink:href" , s )
, ("office:name", t ) , ("office:name", t )
] . inSpanTags "Definition" ] . inSpanTags "Definition"
mkImg s _ l = ($$) l . inTags False "draw:frame" [] $ mkImg s = inTags False "draw:frame" [] $
selfClosingTag "draw:image" [ ("xlink:href" , s ) selfClosingTag "draw:image" [ ("xlink:href" , s )
, ("xlink:type" , "simple") , ("xlink:type" , "simple")
, (" xlink:show" , "embed" ) , (" xlink:show" , "embed" )