From 2f0cf000c8bdcf18f8622e99a070d74502ed8093 Mon Sep 17 00:00:00 2001 From: plugd Date: Fri, 30 Jul 2021 14:35:44 +0200 Subject: [PATCH] Set default max width and height of images. --- elpher.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/elpher.el b/elpher.el index 391bc8b..a82d1ba 100644 --- a/elpher.el +++ b/elpher.el @@ -1130,13 +1130,16 @@ If ADDRESS is not supplied or nil the record is rendered as an (if (not data) nil (if (display-images-p) - (progn - (let ((image (create-image - data - nil t))) - (elpher-with-clean-buffer - (insert-image image) - (elpher-restore-pos)))) + (let* ((image (create-image + data + nil t)) + (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))) + (elpher-with-clean-buffer + (insert-image image) + (elpher-restore-pos))) (elpher-render-download data)))) ;; Search retrieval and rendering -- 2.20.1