From 7e6b71d0cf4ccf5d94a95c58fc35ebf2fd09920b Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Tue, 3 Aug 2021 09:21:24 +0200
Subject: [PATCH] Improved image rendering: fix max-height
window-pixel-height's return value includes the mode line and header
line and the bottom divider, if any. In order for the image to fit
exactly, we therefore subtract window-header-line-height,
window-mode-line-height window, window-scroll-bar-height window, and
window-bottom-divider-width.
---
elpher.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/elpher.el b/elpher.el
index e4d0e6e..0cd846a 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1133,7 +1133,11 @@ If ADDRESS is not supplied or nil the record is rendered as an
(window (get-buffer-window elpher-buffer-name)))
(when window
(setf (image-property image :max-width) (window-pixel-width window))
- (setf (image-property image :max-height) (window-pixel-height window)))
+ (setf (image-property image :max-height) (- (window-pixel-height window)
+ (window-header-line-height window)
+ (window-mode-line-height window)
+ (window-scroll-bar-height window)
+ (window-bottom-divider-width window))))
(elpher-with-clean-buffer
(insert-image image)
(elpher-restore-pos)))
--
2.20.1