Emacs - 每小时随机颜色主题？

Question

我知道(funcall (car (nth (random (length color-themes)) color-themes)))在每个Emacs启动时给我一个random color theme;但我很难重新启动Emacs。我如何周期随机颜色主题之间，比如说，每小时？

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) 

贷记ggole @ #emacs（freenode）;和aecrvol（下）为(random t)提示。

Answer 2

小改良效果：增加了功能(random t)， 否则生成的序列将在运行（ 从http://www.gnu.org/software/emacs/elisp/html_node/Random-Numbers.html）每个Emacs的相同。

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