The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
2cdf02e
)
Set default max width and height of images.
author
plugd
<plugd@thelambdalab.xyz>
Fri, 30 Jul 2021 12:35:44 +0000
(14:35 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Fri, 30 Jul 2021 12:36:43 +0000
(14:36 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
391bc8b
..
a82d1ba
100644
(file)
--- 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)
(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
(elpher-render-download data))))
;; Search retrieval and rendering