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提示(如下)。