From 1e8fcc4982585f15dccc15747ec77dd0a58349f3 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 2 Jun 2013 14:09:49 +0200 Subject: [PATCH] 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