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

Question

我知道(funcall (car (nth (random (length color-themes)) color-themes)))在每个Emacs初创公司给我一个随机颜色主题 ; 但我几乎没有重启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) ，否则生成的序列将在每个Emacs运行中相同（来自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))))

Answer 3

这是我的更新：

(setq color-themes (custom-available-themes))

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


(random-color-theme)

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