更改颜色主题Emacs 24 -顺序事项

Question

在emacs 24中，应用颜色主题的顺序似乎很重要。这是显而易见的，如果你做M颜色-主题-选择.你的命令

有人对这个问题有什么见解吗？

我希望能够在以下颜色主题之间切换而不重新启动：

1. 太阳能灯
2. 晒黑
3. 赞伯恩
4. 栏杆

我想我需要一个相当于css-重置的emacs。另一个非常宝贵的提示是，如果你使用邪恶，那么你需要这一行，否则你的光标就会保持黑色，这对于黑暗的主题来说是可怕的：

(setq evil-default-cursor t) 

这是一个相关的问题：Switching between color themes in Emacs ( < v.24)。我用的是Emacs 24.0。我张贴这个问题是因为我正在寻找24.1前的解决办法，或者如果24.1足够稳定的话，也许可以提供建议。

Answer 1

在我看来，即使在Emacs 24上，您仍然使用旧的(和未维护的)彩色主题包。Emacs 24有一个内置的彩色主题化基础设施(以及像赞伯恩和孤岛化这样的主题已经移植到它上了)，我建议您改用它。查看这里，了解关于deftheme和朋友的详细信息。

То回答关于颜色主题的特定问题时，通常不会定义以前的主题可能已经调整并导致问题的每一张脸。在主题之间移动到默认主题可能会被认为类似于css重置。

Answer 2

若要在加载新主题之前自动禁用当前主题，还可以使用通知：

(defadvice load-theme 
  (before theme-dont-propagate activate)
  (mapcar #'disable-theme custom-enabled-themes))

Answer 3

我编写了一个函数，在emacs切换到新主题之前禁用当前主题。

您可以将下面的片段粘贴到您的r init.el中，并使用M 10 and主题。

https://github.com/maruks/.emacs.d

    ;; color themes
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")

(setq current-t43m3 nil)

(defun enab-theme (theme) 
  (if current-t43m3 (disable-theme current-t43m3))
  (setq current-t43m3 theme) 
  (load-theme theme t)) 

(defun disab-current-theme () 
  (if current-t43m3 (disable-theme current-t43m3))
  (setq current-t43m3 nil))

(global-set-key (kbd "C-c ltwo") '(lambda () (interactive) (enab-theme 'wombat)))

(global-set-key (kbd "C-c ltze") '(lambda () (interactive) (enab-theme 'zenburn)))

(global-set-key (kbd "C-c ltsd") '(lambda () (interactive) (enab-theme 'solarized-dark)))

(global-set-key (kbd "C-c ltsl") '(lambda () (interactive) (enab-theme 'solarized-light)))

(global-set-key (kbd "C-c ltne") '(lambda () (interactive) (enab-theme 'tomorrow-night-eighties)))

(global-set-key (kbd "C-c ltni") '(lambda () (interactive) (enab-theme 'tomorrow-night)))

(global-set-key (kbd "C-c ltnb") '(lambda () (interactive) (enab-theme 'tomorrow-night-bright)))

(global-set-key (kbd "C-c ltto") '(lambda () (interactive) (enab-theme 'tomorrow)))

(global-set-key (kbd "C-c ltta") '(lambda () (interactive) (enab-theme 'tango)))

(global-set-key (kbd "C-c ltdb") '(lambda () (interactive) (enab-theme 'deeper-blue)))

(global-set-key (kbd "C-c ltdi") '(lambda () (interactive) (enab-theme 'dichromacy)))

(global-set-key (kbd "C-c dct") '(lambda () (interactive) (disab-current-theme)))

(defun l0ad-theme (name) 
  (interactive
   (list
    (intern (completing-read "Load custom theme: "
                 (mapcar 'symbol-name (custom-available-themes))))))
  (enab-theme name))

(setq d3fault-theme (getenv "EMACS_DEFAULT_THEME"))

(when d3fault-theme
  (enab-theme (intern d3fault-theme)))