From bb7681a85af76b2b85b263d593f560caf5428def Mon Sep 17 00:00:00 2001 From: Andrew Pritchard Date: Mon, 19 Feb 2018 03:12:58 +0800 Subject: EMF Image size support (#4375) --- src/Text/Pandoc/Writers/Docx.hs | 1 + src/Text/Pandoc/Writers/Powerpoint/Output.hs | 1 + 2 files changed, 2 insertions(+) (limited to 'src/Text/Pandoc/Writers') 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 -- cgit v1.2.3