Published in: Emacs Lisp
URL: set-random-mode-line-background
When called, this function sets the background color of the mode-line to one of the defined colors randomly.
(defun set-random-mode-line-background() (interactive) (setq ncolors (length (defined-colors))) (random t) (set-face-background 'mode-line (nth (random ncolors) (defined-colors))))
You need to login to post a comment.
