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

Allow Icon + Major mode name

Browse source
This commit is contained in:
Matthew L. Fidler 2016-02-20 00:14:52 -06:00
parent 2f78ec906e
commit 66730cf972
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mode-icons.el
View file

@ -403,12 +403,19 @@ ICON-SPEC should be a specification from `mode-icons'."
(throw 'found-mode item))) (throw 'found-mode item)))
nil)) nil))
(defcustom mode-icons-show-mode-name nil
"Show Icon and `mode-name'."
:type 'boolean
:group 'mode-icons)
(defun mode-icons-get-mode-icon (mode) (defun mode-icons-get-mode-icon (mode)
"Get the icon for MODE, if there is one." "Get the icon for MODE, if there is one."
(let* ((mode-name (format-mode-line mode)) (let* ((mode-name (format-mode-line mode))
(icon-spec (mode-icons-get-icon-spec mode-name))) (icon-spec (mode-icons-get-icon-spec mode-name)))
(if icon-spec (if icon-spec
(mode-icons-propertize-mode mode-name icon-spec) (if mode-icons-show-mode-name
(concat (mode-icons-propertize-mode mode-name icon-spec) " " mode-name)
(mode-icons-propertize-mode mode-name icon-spec))
mode-name))) mode-name)))
(defvar mode-icons-cached-mode-name nil (defvar mode-icons-cached-mode-name nil