Ich weiß, dass (funcall (car (nth (random (length color-themes)) color-themes))) gibt mir eine random color theme auf jedem Emacs Startup; aber ich starte Emacs kaum neu. Wie mache ich Zyklus zwischen zufälligen Farbthemen, sagen wir, jede Stunde?Emacs - zufällige Farbe Thema jede Stunde?
(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)
Kredit geht an ggole @ #emacs (freenode); und aecrvol (unten) für die (random t) Spitze.
Etwas improvment: Zugabe zu der Funktion (random t) wird sonst erzeugte Sequenz gleichen Lauf in jedem Emacs sein ( von http://www.gnu.org/software/emacs/elisp/html_node/Random-Numbers.html).
Das klingt horrend :) Ist die Idee, Farbschemata nach dem Zufallsprinzip zu wählen, bis Sie auf einen stolpern, den Sie behalten möchten? – phils
@phils - genau :) –