代码之家 › 专栏 › 技术社区 › Sridhar Ratnakumar

Emacs-每小时随机颜色主题?

color-scheme elisp random emacs

9

Sridhar Ratnakumar · 技术社区 · 16 年前

(funcall (car (nth (random (length color-themes)) color-themes))) 给我一个 random color theme 每次启动Emacs时;但我几乎不重新启动Emacs。我该怎么做周期在随机的颜色主题之间,比如说,每小时?

3 回复 | 直到 16 年前

1

9

Sridhar Ratnakumar 16 年前

(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(自由节点);以及 aecrvol (random t)

2

3

aecrvol 16 年前

一点改进:添加到函数 (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

0

Terrence Brannon 7 年前

以下是我的更新:

(setq color-themes (custom-available-themes))

(defun random-color-theme ()
  (interactive)
  (random t)
  (load-theme
   (nth (random (length color-themes)) color-themes)
   t))


(random-color-theme)

(run-with-timer 1 (* 60 60) 'random-color-theme)