diff options
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 55588ba22..5ad6bf82b 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -1339,6 +1339,7 @@ inlineToOpenXML' opts (Image attr alt (src, title)) = do Just Pdf -> ".pdf" Just Eps -> ".eps" Just Svg -> ".svg" + Just Emf -> ".emf" Nothing -> "" if null imgext then -- without an extension there is no rule for content type diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index d30819d47..b41696043 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -475,6 +475,7 @@ registerMedia fp caption = do Just Pdf -> Just ".pdf" Just Eps -> Just ".eps" Just Svg -> Just ".svg" + Just Emf -> Just ".emf" Nothing -> Nothing let newGlobalId = case M.lookup fp globalIds of |