Add minor-mode

The `mode-icons-mode' minor-mode enables/disables the setting of icons
for each mode.
This commit is contained in:
Tom Willemse 2013-06-02 14:09:49 +02:00
parent 68fa015bf7
commit 1e8fcc4982

View file

@ -87,5 +87,12 @@ ICON-SPEC should be a specification from `mode-icons'."
"Set the icon for the current major mode." "Set the icon for the current major mode."
(set-mode-icon mode-name)) (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) (provide 'mode-icons)
;;; mode-icons.el ends here ;;; mode-icons.el ends here