Emacs - màu chủ đề ngẫu nhiên mỗi giờ?

Question

Tôi biết rằng để (funcall (car (nth (random (length color-themes)) color-themes))) mang lại cho tôi random color theme trên mọi lần khởi động Emacs; nhưng tôi hầu như không khởi động lại Emacs. Làm thế nào để tôi chu kỳ giữa các chủ đề màu ngẫu nhiên, mỗi giờ?

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) 

Tín dụng chuyển đến ggole @ #emacs (freenode); và aecrvol (bên dưới) cho mẹo (random t).

Answer 2

Một chút ứng suất: thêm vào hàm (random t), trình tự được tạo khác sẽ giống nhau trong mỗi lần chạy Emacs ( từ 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))))