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

Change emojify-image-dir from variable to function

Browse source 
See 19b9bae79f
This commit is contained in:
kissge 2017-01-12 14:23:17 +09:00
parent 7d864662b9
commit 2f364dfae6
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mode-icons.el
View file

@ -733,8 +733,6 @@ everywhere else."
(and (image-type-available-p 'xpm) (and (image-type-available-p 'xpm)
(file-exists-p (mode-icons--get-png-xpm-file icon-spec))))) )) (file-exists-p (mode-icons--get-png-xpm-file icon-spec))))) ))
(defvar emojify-image-dir)
(defvar emojify-emojis) (defvar emojify-emojis)
(defvar mode-icons--gimp (executable-find "gimp") (defvar mode-icons--gimp (executable-find "gimp")
@ -1139,7 +1137,7 @@ ACTIVE is a flag for if the current window is active."
(unless emojify-emojis (unless emojify-emojis
(emojify-set-emoji-data)) (emojify-set-emoji-data))
(let* ((emoji (ht-get emojify-emojis (nth 1 icon-spec))) (let* ((emoji (ht-get emojify-emojis (nth 1 icon-spec)))
(image-file (expand-file-name (ht-get emoji "image") emojify-image-dir)) (image-file (expand-file-name (ht-get emoji "image") (emojify-image-dir)))
(image-type (intern (upcase (file-name-extension image-file))))) (image-type (intern (upcase (file-name-extension image-file)))))
(if (not (file-exists-p image-file)) (if (not (file-exists-p image-file))
(propertize (format "%s" mode) (propertize (format "%s" mode)