diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 |
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) |