diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-30 16:02:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-30 16:03:28 -0800 |
| commit | 171187a4527497701b3c77bd56cea2d770d4e3b0 (patch) | |
| tree | fb433e3135ef5330b7f4323e35045f64a2a37997 | |
| parent | 7a8c830734688a6ff9db805df8e3e5a9bd71033f (diff) | |
| download | pandoc-171187a4527497701b3c77bd56cea2d770d4e3b0.tar.gz | |
LaTeX writer: Add keepaspectratio to includegraphics...
...if only one of height/width is given.
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 | ||||
| -rw-r--r-- | test/command/3450.md | 2 |
2 files changed, 7 insertions, 2 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) diff --git a/test/command/3450.md b/test/command/3450.md index 8759aa0c1..a8f713ed0 100644 --- a/test/command/3450.md +++ b/test/command/3450.md @@ -8,5 +8,5 @@ % pandoc -fmarkdown-implicit_figures -t latex {height=2em} ^D -\includegraphics[height=2em]{lalune.jpg} +\includegraphics[height=2em,keepaspectratio]{lalune.jpg} ``` |