procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/image-mode.el: Resize image on window resizing (bug#32672)

Browse source 
* lisp/image-mode.el (image--window-change): New function.
(image--window-change-function): New variable.
(image-mode--setup-mode): Add buffer-local hook image--window-change
to window-size-change-functions, window-state-change-functions,
window-selection-change-functions.
This commit is contained in:
Juri Linkov 2019-11-27 23:52:29 +02:00
parent 2435f811b9
commit b31a966e88
2 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -2623,6 +2623,9 @@ pointer is over. To change this behaviour, you can customize the user
option 'mouse-wheel-follow-mouse'. Note that this will also affect
scrolling.
** Mouse scroll up and down with control key modifier also works on images
where it scales the image under the mouse pointer.
---
** help-follow-symbol now signals 'user-error' if point (or the
position pointed to by the argument POS) is not in a symbol.

25
lisp/image-mode.el
View file

@ -599,6 +599,10 @@ Key bindings:
(add-hook 'change-major-mode-hook #'image-toggle-display-text nil t)
(add-hook 'after-revert-hook #'image-after-revert-hook nil t)
(add-hook 'window-size-change-functions #'image--window-change nil t)
(add-hook 'window-state-change-functions #'image--window-change nil t)
(add-hook 'window-selection-change-functions #'image--window-change nil t)
(run-mode-hooks 'image-mode-hook)
(let ((image (image-get-display-property))
(msg1 (substitute-command-keys
@ -856,6 +860,27 @@ Otherwise, display the image by calling `image-mode'."
(get-buffer-window-list (current-buffer) 'nomini 'visible))
(image-toggle-display-image)))
(defvar image--window-change-function
(debounce 1.0
(lambda (window)
(when (window-live-p window)
(with-current-buffer (window-buffer)
(when (derived-mode-p 'image-mode)
(let ((spec (image-get-display-property)))
(when (eq (car-safe spec) 'image)
(let* ((image-width (plist-get (cdr spec) :max-width))
(image-height (plist-get (cdr spec) :max-height))
(edges (window-inside-pixel-edges window))
(window-width (- (nth 2 edges) (nth 0 edges)))
(window-height (- (nth 3 edges) (nth 1 edges))))
(when (and image-width image-height
(or (not (= image-width window-width))
(not (= image-height window-height))))
(image-toggle-display-image)))))))))))
(defun image--window-change (window)
(funcall image--window-change-function window))
;;; Animated images