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) पर जाता है; (random t) टिप के लिए aecrvol (नीचे)।

Answer 2

एक छोटी सी improvment: समारोह (random t) को जोड़ने, अन्यथा उत्पन्न अनुक्रम चलाने (http://www.gnu.org/software/emacs/elisp/html_node/Random-Numbers.html से ) प्रत्येक Emacs में एक ही हो जाएगा।

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