Skip to content

Instantly share code, notes, and snippets.

@d11wtq

d11wtq/colorize.el

Created May 22, 2013 08:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save d11wtq/5626104 to your computer and use it in GitHub Desktop.
Save d11wtq/5626104 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
colorize.el
(defun colorize-mode-line (&rest args)
(let ((color (cond ((evil-insert-state-p) "#fa4444")
((evil-emacs-state-p) "#fafa00")
((buffer-modified-p) "#22bff0"))))
(set-face-background 'mode-line (or color "#ffffff"))))
(add-to-list 'post-command-hook 'colorize-mode-line)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment