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

Add a convert all png to xpm function

Browse source
This commit is contained in:
Matthew Fidler 2016-04-26 12:30:12 -05:00
parent 97655df673
commit fa239e6ad8
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mode-icons.el
View file

@ -971,6 +971,16 @@ When ICON-NAME is non-nil, return the mode-icons icon name."
(nth 1 icon-spec) (nth 1 icon-spec)
(mode-icons-get-icon-file (concat (nth 1 icon-spec) ".xpm")))) (mode-icons-get-icon-file (concat (nth 1 icon-spec) ".xpm"))))
(defun mode-icons--convert-all-png-icons-to-xpm ()
"Convert all png icons to xpm files."
(interactive)
(setq mode-icons--convert-png-to-xpm (make-hash-table :test 'equal))
(dolist (icon-spec mode-icons)
(when (eq 'png (nth 2 icon-spec))
(mode-icons--convert-png-to-xpm
(mode-icons-get-icon-file (concat (nth 1 icon-spec) ".png"))
(mode-icons-get-icon-file (concat (nth 1 icon-spec) ".xpm"))))))
(defun mode-icons--get-emoji-xpm-file (icon-spec &optional icon-name) (defun mode-icons--get-emoji-xpm-file (icon-spec &optional icon-name)
"Get the emoji xpm file name from ICON-SPEC. "Get the emoji xpm file name from ICON-SPEC.
This only supports emoji enclosed in a \":\" like :herb:. This only supports emoji enclosed in a \":\" like :herb:.