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

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

  •  9
  • Sridhar Ratnakumar  · 技术社区  · 14 年前

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

    3 回复  |  直到 14 年前
        1
  •  9
  •   Sridhar Ratnakumar    14 年前
    (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    14 年前

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

    以下是我的更新:

    (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)