From 66730cf972118160b03e39cce614d9d06d4f92fe Mon Sep 17 00:00:00 2001
From: Matthew L. Fidler
Date: Sat, 20 Feb 2016 00:14:52 -0600
Subject: Allow Icon + Major mode name

---
 mode-icons.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'mode-icons.el')

diff --git a/mode-icons.el b/mode-icons.el
index d7e3a49..15e3c99 100644
--- a/mode-icons.el
+++ b/mode-icons.el
@@ -403,12 +403,19 @@ ICON-SPEC should be a specification from `mode-icons'."
         (throw 'found-mode item)))
     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)
   "Get the icon for MODE, if there is one."
   (let* ((mode-name (format-mode-line mode))
          (icon-spec (mode-icons-get-icon-spec mode-name)))
     (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)))
 
 (defvar mode-icons-cached-mode-name nil
-- 
cgit v1.2.3-54-g00ecf