2010-08-13 24 views
9

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?Emacs - her saat rastgele renk teması?

+0

Bu kulağa korkunç bir ses çıkarır :) Siz tutmak istediğiniz bir şeye rastgele gelene kadar fikir rastgele renk şemaları seçer mi? – phils

+0

@phils - tam olarak :) –

cevap

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

İlgili konular