aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs7
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)