Emacs: tema de color aleatorio cada hora?

Question

Sé que a (funcall (car (nth (random (length color-themes)) color-themes))) me da un random color theme en cada inicio de Emacs; pero apenas reinicio Emacs. ¿Cómo puedo ciclo entre los temas de color aleatorio, por ejemplo, cada hora?

Answer 1

(defun random-color-theme() 
    (interactive) 
    (random t) 
    (funcall (car (nth (random (length color-themes)) color-themes)))) 

(random-color-theme) 

(run-with-timer 1 (* 60 60) 'random-color-theme) 

El crédito va a ggole @ #emacs (freenode); y aecrvol (abajo) para la punta (random t).

Answer 2

Una pequeña mejora a: la adición a la función (random t), secuencia generada de lo contrario será el mismo en cada uno de Emacs Run ( de http://www.gnu.org/software/emacs/elisp/html_node/Random-Numbers.html).

(defun random-color-theme() 
    (interactive) 
    (random t) ; randomazing 
    (funcall (car (nth (random (length color-themes)) color-themes))))