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))))