aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

replace gnus-rescale-image with create-image property :height

Browse source
This commit is contained in:
stardiviner 2021-10-30 18:12:52 +08:00
parent 00560d5f4f
commit c8408cf44e
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
org-contacts.el
View file

@ -911,11 +911,9 @@ address."
(t (expand-file-name avatar (file-name-directory (first org-contacts-files)))))))) (t (expand-file-name avatar (file-name-directory (first org-contacts-files))))))))
(when image-path (when image-path
(throw 'icon (throw 'icon
(if (fboundp 'gnus-rescale-image) (if (featurep 'imagemagick)
;; FIXME `gnus-rescale-image' does not support rescale `create-image' spec. (create-image image-path 'imagemagick nil :height org-contacts-icon-size)
(gnus-rescale-image (create-image image-path) (create-image image-path nil nil :height org-contacts-icon-size)))))
(cons org-contacts-icon-size org-contacts-icon-size))
(create-image image-path)))))
;; Next, try Gravatar ;; Next, try Gravatar
(when org-contacts-icon-use-gravatar (when org-contacts-icon-use-gravatar
(let* ((gravatar-size org-contacts-icon-size) (let* ((gravatar-size org-contacts-icon-size)