Return to Snippet

Revision: 6538
at May 28, 2008 14:55 by perpet


Initial Code
(defun set-random-mode-line-background() (interactive)
  (setq ncolors (length (defined-colors)))
  (random t)
  (set-face-background 'mode-line (nth (random ncolors) (defined-colors))))

Initial URL
set-random-mode-line-background

Initial Description
When called, this function sets the background color of the mode-line to one of the defined colors randomly.

Initial Title
Random mode-line color

Initial Tags


Initial Language
Emacs Lisp