ryuslash/mode-icons
1
0
Fork 0
mirror of https://github.com/ryuslash/mode-icons.git synced 2024-12-25 14:18:03 +01:00
Code Issues Projects Releases Packages Wiki Activity

Make sure that case in matches is preserved

Browse source
This commit is contained in:
Matthew Fidler 2016-03-15 08:00:10 -05:00
parent 4febdb5418
commit 6d592fb195
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
mode-icons.el
View file

@ -190,7 +190,7 @@ This was stole/modified from `c-save-buffer-state'"
("Custom" #xf013 FontAwesome)
("\\`Go\\'" "go" xpm)
(" Rbow" "rainbow" xpm)
(" Icy" "icy" xpm) ;; http://www.clipartpal.com/clipart_pd/weather/ice_10206.htmlr
(" ICY" "icy" xpm) ;; http://www.clipartpal.com/clipart_pd/weather/ice_10206.htmlr
(" Golden" "golden" xpm) ;; Icon created by Arthur Shlain from Noun Project
("BibTeX" "bibtex" xpm)
("C[+][+]/l" #xf10c font-mfizz)
@ -451,20 +451,21 @@ ICON-SPEC should be a specification from `mode-icons'."
(defun mode-icons-get-icon-spec (mode)
"Get icon spec for MODE based on regular expression."
(catch 'found-mode
(dolist (item mode-icons)
(when (and (mode-icons-supported-p item)
(or
(and
(stringp (car item))
(stringp mode)
(string-match-p (car item) mode))
(and
(symbolp (car item))
(symbolp mode)
(eq mode (car item)))))
(throw 'found-mode item)))
nil))
(let (case-fold-search)
(catch 'found-mode
(dolist (item mode-icons)
(when (and (mode-icons-supported-p item)
(or
(and
(stringp (car item))
(stringp mode)
(string-match-p (car item) mode))
(and
(symbolp (car item))
(symbolp mode)
(eq mode (car item)))))
(throw 'found-mode item)))
nil)))
(defcustom mode-icons-show-mode-name nil
"Show Icon and `mode-name'."