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

Question

我知道在每个Emacs初创公司(funcall (car (nth (random (length color-themes)) color-themes)))都给我一个随机的颜色主题 ; 但我几乎没有重启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)提示.