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

我知道to

（funcall（car（n（随机（长度颜色主题））颜色主题））

在每次Emacs启动时都给了我一个机会；但我几乎没有重新启动Emacs。我如何在随机的颜色主题之间循环，比如说，每小时

(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

（以下）用于

（随机t）

提示。

一点改进：添加到函数

（随机t）

， 否则，在每次Emacs运行中生成的序列将是相同的( 从）

以下是我的更新：

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

这听起来很可怕：）随机选择配色方案，直到你偶然发现一个你想要保留的配色方案，这是一个想法吗？

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