From 1e8fcc4982585f15dccc15747ec77dd0a58349f3 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 2 Jun 2013 14:09:49 +0200
Subject: Add minor-mode

The `mode-icons-mode' minor-mode enables/disables the setting of icons
for each mode.
---
 mode-icons.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/mode-icons.el b/mode-icons.el
index 7c6504c..9a1403f 100644
--- a/mode-icons.el
+++ b/mode-icons.el
@@ -87,5 +87,12 @@ ICON-SPEC should be a specification from `mode-icons'."
   "Set the icon for the current major mode."
   (set-mode-icon mode-name))
 
+(define-minor-mode mode-icons-mode
+  "Replace the name of the current major mode with an icon."
+  :global t
+  (if mode-icons-mode
+      (add-hook 'after-change-major-mode-hook 'set-current-mode-icon)
+    (remove-hook 'after-change-major-mode-hook 'set-current-mode-icon)))
+
 (provide 'mode-icons)
 ;;; mode-icons.el ends here
-- 
cgit v1.2.3-54-g00ecf