Re: The Gnus logo in the modeline is displayed with a non-transparent background

[Eric Abrahamsen <eric@ericabrahamsen.net>]

asjo@koldfront.dk (Adam Sjøgren) writes:

> Ah! Found the reason!
>
> When I got a "HiDPI" screen for the first time, Katsumi helped me with
> these two defadvice, to scale images:
>
>   (defadvice create-image (after scale-image-size activate)
>     "Scale the image size."
>     (condition-case nil
>         (let* ((magnitude (frame-parameter nil 'image-dpi-scale-magnitude))
>                (image (copy-sequence ad-return-value))
>                (size (image-size image t))
>                (spec (cdr image))
>                (image-width (or (plist-get spec :width) (car size)))
>                (image-height (or (plist-get spec :height) (cdr size))))
>           (plist-put spec :width (round (* image-width magnitude)))
>           (plist-put spec :height (round (* image-height magnitude)))
>           (plist-put spec :type 'imagemagick)
>           (setq ad-return-value image))
>       (error nil)))
>
>   (defadvice find-image (after scale-image-size activate)
>     "Scale the image size."
>     (condition-case nil
>         (let* ((magnitude (frame-parameter nil 'image-dpi-scale-magnitude))
>                (image (copy-sequence ad-return-value))
>                (size (image-size image t))
>                (spec (cdr image))
>                (image-width (or (plist-get spec :width) (car size)))
>                (image-height (or (plist-get spec :height) (cdr size))))
>           (plist-put spec :width (round (* image-width magnitude)))
>           (plist-put spec :height (round (* image-height magnitude)))
>           (plist-put spec :type 'imagemagick)
>           (setq ad-return-value image))
>       (error nil)))
>
> If I remove those (all images are too small, but) the image in the
> modeline is transparent!

Huh, now that you mention it, I see all the images are too small on my
(hdpi) monitor, too. Oh well, at least they're transparent!

I wonder if you could play with that `find-image' advice and make it
work. Isn't 'imagemagick an odd :type for the image found? I wonder if
that's necessary to make the re-scaling work correctly. What happens if
you hard-code it to 'xpm, just for this case?

Eric