From 171187a4527497701b3c77bd56cea2d770d4e3b0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 30 Nov 2017 16:02:59 -0800 Subject: LaTeX writer: Add keepaspectratio to includegraphics... ...if only one of height/width is given. --- src/Text/Pandoc/Writers/LaTeX.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/Text') 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) -- cgit v1.2.3