Re: High-res Customize icons

[Eli Zaretskii]

> From: Yuan Fu <casouri@gmail.com>
> Date: Tue, 27 Oct 2020 15:17:37 -0400
> Cc: chad <yandros@gmail.com>,
>  Clément Pit-Claudel <cpitclaudel@gmail.com>,
>  emacs-devel@gnu.org
> 
> How about exposing that Cocoa API to lisp and handle accordingly in 
> find-image? Some thing like:
> 
> (let (img)
>   (if (eq (window-system) 'ns)
>       ;; Cocoa
>       (let ((pixel-scaling-factor (ns-scaling-factor)))
>         (if (> pixel-scaling-factor 1.0)
>             (append (find-2x-image) '(:scale 0.5))
>           (find-normal-image)))
>     ;; Other
>     (let ((image-scaling-factor (image-compute-scaling-factor
>                                  image-scaling-factor)))
>       (if (> image-scaling-factor 2)
>           (append (find-2x-image) '(:scale 2))
>         (find-normal-image)))))

I don't think I understand this well enough to answer the question.
Perhaps Alan could chime in and comment.