Emacs - her saat rastgele renk teması?

Question

Bunu, her Emacs başlangıcında (funcall (car (nth (random (length color-themes)) color-themes))) için random color theme verdiğini biliyorum; ama Emacs'i hemen yeniden başlatıyorum. Her saat başı, rastgele renk temaları arasında döngüsünü nasıl yaparım?

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) 

Kredi ggole @ #emacs (freenode); ve (random t) ipucu için aecrvol (aşağıda).

Answer 2

küçük bir iyileştirme: fonksiyon (random t) ekleyerek aksi edilen dizi (http://www.gnu.org/software/emacs/elisp/html_node/Random-Numbers.html den ) çalıştırmak her Emacs aynı olacaktır.

(defun random-color-theme() 
    (interactive) 
    (random t) ; randomazing 
    (funcall (car (nth (random (length color-themes)) color-themes))))