ryuslash/mode-icons
1
0
Fork 0
mirror of https://github.com/ryuslash/mode-icons.git synced 2024-11-22 01:50:28 +01:00
Code Issues Projects Releases Packages Wiki Activity

Use imagemagick when available

Browse source
This commit is contained in:
Matthew Fidler 2016-04-12 14:03:43 -05:00
parent fe1171a663
commit c5ce3cdfab
1 changed files with 22 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
mode-icons.el
View file

@ -454,20 +454,37 @@ ACTIVE is an indicator that the current window is active."
(cond (cond
((and mode-icons-grayscale-transform (eq type 'xpm-bw)) ((and mode-icons-grayscale-transform (eq type 'xpm-bw))
(create-image (mode-icons-get-icon-display-xpm-bw-face icon-path face) (create-image (mode-icons-get-icon-display-xpm-bw-face icon-path face)
'xpm t :ascent 'center ;; Use imagemagick for rescaling...
(or (and (fboundp 'imagemagick-types)
(memq 'png (imagemagick-types)) 'imagemagick)
'xpm)
t :ascent 'center
:face face :face face
:xpm-bw t :xpm-bw t
:icon icon)) :icon icon))
((eq type 'xpm-bw) ((eq type 'xpm-bw)
`(image :type xpm :file ,icon-path :ascent center :face ',face :icon ,icon)) (create-image icon-path
(or (and (fboundp 'imagemagick-types)
(memq 'png (imagemagick-types)) 'imagemagick)
'xpm)
:ascent 'center
:face face
:icon icon))
((and (eq type 'xpm) ((and (eq type 'xpm)
(or (and active mode-icons-desaturate-active) (or (and active mode-icons-desaturate-active)
(and (not active) mode-icons-desaturate-inactive))) (and (not active) mode-icons-desaturate-inactive)))
(create-image (mode-icons-desaturate-xpm icon-path face) (create-image (mode-icons-desaturate-xpm icon-path face)
'xpm t :ascent 'center (or (and (fboundp 'imagemagick-types)
(memq 'png (imagemagick-types)) 'imagemagick)
'xpm) t :ascent 'center
:face face :icon icon)) :face face :icon icon))
(t (t
`(image :type ,(or (and (eq type 'jpg) 'jpeg) type) :file ,icon-path :ascent center :face ',face :icon ,icon))))) (create-image icon-path
(or (and (fboundp 'imagemagick-types)
(memq (or (and (eq type 'jpg) 'jpeg) type) (imagemagick-types))
'imagemagick)
(or (and (eq type 'jpg) 'jpeg) type))
:ascent 'center :face face :icon icon)))))
((and (eq type 'emoji) (setq tmp (mode-icons--get-emoji " " (list "" icon type) face))) ((and (eq type 'emoji) (setq tmp (mode-icons--get-emoji " " (list "" icon type) face)))
(get-text-property 0 'display tmp)) (get-text-property 0 'display tmp))
;; Shouldn't get here... ;; Shouldn't get here...