带有emacs的自行车自定义主题24

Question

我目前正在为emacs 24使用新的customtheme工具，我希望能够通过按一个键（例如f12）来循环浏览自定义主题。

下面的代码听起来确实像我想要的那样，但是它使用了我不想做的颜色主题。 我对Lisp尚不熟悉，无法自行编写或从旧版本转换为新版本。 有没有人可以使用新内置的load-theme命令帮助我将相同功能引入emacs 24？

另外，基于此讨论 ，我可能需要在每次调用该函数时都调用disable-theme。

任何帮助是极大的赞赏。

这是使用颜色主题的旧解决方案

(defun my-theme-set-default () ; Set the first row
  (interactive)
  (setq theme-current my-color-themes)
  (funcall (car theme-current)))

(defun my-describe-theme () ; Show the current theme
  (interactive)
  (message "%s" (car theme-current)))

; Set the next theme (fixed by Chris Webber - tanks)
(defun my-theme-cycle ()        
  (interactive)
  (setq theme-current (cdr theme-current))
  (if (null theme-current)
  (setq theme-current my-color-themes))
  (funcall (car theme-current))
  (message "%S" (car theme-current)))

(setq theme-current my-color-themes)
(setq color-theme-is-global nil) ; Initialization
(my-theme-set-default)
(global-set-key [f12] 'my-theme-cycle)

Answer 1

FWIW，这是两种现成的方法（使用Icicles或Do Re Mi ）来循环Emacs自定义主题 （您称Emacs 24为颜色主题，但它们是自定义主题，而不是颜色主题）。 同一页面解释了颜色主题和自定义主题之间的区别。

Answer 2

这是一些与JakubHozak的代码类似的代码，但是切换的速度不如颜色主题快。 我完全不明白为什么，但这似乎是由自定义主题和颜色主题之间的差异引起的。 尽管如果将骑行限制在emacs随附的主题上，那似乎更可忍受。

(setq my-themes (list 'tango 'solarized-dark 'solarized-light 'alect-dark)) ;;the themes I cycle among
(setq curr-theme my-themes)

(defun my-theme-cycle ()
    (interactive)
    (disable-theme (car curr-theme)) ;;Nee flickeringded to stop even worse
    (setq curr-theme (cdr curr-theme))
    (if (null curr-theme) (setq curr-theme my-themes))
    (load-theme (car curr-theme) t)
    (message "%s" (car curr-theme))
)

(global-set-key [f12] 'my-theme-cycle)
(setq curr-theme my-themes)
(load-theme (car curr-theme) t)