Commit e3fbe04c authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Make image scaling work without imagemagick support in eww

* lisp/net/shr.el (shr-rescale-image): Emacs has native image
scaling now, so images can be rescaled without imagemagick
parent 4b2c9f63
Pipeline #1664 passed with stage
in 51 minutes and 13 seconds
......@@ -1101,9 +1101,6 @@ WIDTH and HEIGHT are the sizes given in the HTML data, if any.
The size of the displayed image will not exceed
MAX-WIDTH/MAX-HEIGHT. If not given, use the current window
width/height instead."
(if (or (not (fboundp 'imagemagick-types))
(not (get-buffer-window (current-buffer))))
(create-image data nil t :ascent 100)
(let* ((edges (window-inside-pixel-edges
(get-buffer-window (current-buffer))))
(max-width (truncate (* shr-max-image-proportion
......@@ -1123,17 +1120,17 @@ width/height instead."
(< (* width scaling) max-width)
(< (* height scaling) max-height))
data 'imagemagick t
data nil t
:ascent 100
:width width
:height height
:format content-type)
data 'imagemagick t
data nil t
:ascent 100
:max-width max-width
:max-height max-height
:format content-type)))))
:format content-type))))
;; url-cache-extract autoloads url-cache.
(declare-function url-cache-create-filename "url-cache" (url))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment