Вопросы Теги

Emacs - тема произвольного цвета каждый час?

Я знаю это к (funcall (car (nth (random (length color-themes)) color-themes))) дает мне тему произвольного цвета на каждом запуске Emacs; но я едва перезапускаю Emacs. Как я циклически повторяюсь между темами произвольного цвета, скажем, каждый час?

9
задан Reinstate Monica 13 August 2010 в 23:37
поделиться

2 ответа

(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); и aecrvol (ниже) для наконечника (случайный t) .

9
ответ дан 4 December 2019 в 19:32
поделиться

Небольшое улучшение: добавление к функции (random t), в противном случае сгенерированная последовательность будет одинаковой при каждом запуске Emacs ( из 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))))
3
ответ дан 4 December 2019 в 19:32
поделиться
Другие вопросы по тегам:

Похожие вопросы: