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

Merge pull request #2771 from mb21/docx-alt-text

Browse source 
Docx Writer: handle image alt text
This commit is contained in:
John MacFarlane 2016-03-10 08:57:31 -08:00
commit 06a57b27a1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/Docx.hs
View file

@ -1103,7 +1103,7 @@ inlineToOpenXML opts (Link _ txt (src,_)) = do
M.insert src i extlinks } M.insert src i extlinks }
return i return i
return [ mknode "w:hyperlink" [("r:id",id')] contents ] return [ mknode "w:hyperlink" [("r:id",id')] contents ]
inlineToOpenXML opts (Image attr alt (src, tit)) = do inlineToOpenXML opts (Image attr alt (src, _)) = do
-- first, check to see if we've already done this image -- first, check to see if we've already done this image
pageWidth <- gets stPrintWidth pageWidth <- gets stPrintWidth
imgs <- gets stImages imgs <- gets stImages
@ -1154,7 +1154,7 @@ inlineToOpenXML opts (Image attr alt (src, tit)) = do
mknode "wp:inline" [] mknode "wp:inline" []
[ mknode "wp:extent" [("cx",show xemu),("cy",show yemu)] () [ mknode "wp:extent" [("cx",show xemu),("cy",show yemu)] ()
, mknode "wp:effectExtent" [("b","0"),("l","0"),("r","0"),("t","0")] () , mknode "wp:effectExtent" [("b","0"),("l","0"),("r","0"),("t","0")] ()
, mknode "wp:docPr" [("descr",tit),("id","1"),("name","Picture")] () , mknode "wp:docPr" [("descr",stringify alt),("id","1"),("name","Picture")] ()
, graphic ] , graphic ]
let imgext = case mt >>= extensionFromMimeType of let imgext = case mt >>= extensionFromMimeType of
Just x -> '.':x Just x -> '.':x