LaTeX writer: Add keepaspectratio to includegraphics...

...if only one of height/width is given.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 8620f989b..1972269ff 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -1125,7 +1125,12 @@ inlineToLaTeX (Image attr _ (source, _)) = do
                            [d <> text (show dim)]
                          Nothing          ->
                            []
-      dimList = showDim Width ++ showDim Height
+      -- if we just have a width or a height, we add keepaspectratio:
+      keepaspectratio = case (dimension Height attr, dimension Width attr) of
+                             (Nothing, Just _) -> ["keepaspectratio"]
+                             (Just _, Nothing) -> ["keepaspectratio"]
+                             _ -> []
+      dimList = showDim Width ++ showDim Height ++ keepaspectratio
       dims = if null dimList
                 then empty
                 else brackets $ cat (intersperse "," dimList)