Запретить сохранение рабочего стола emacs на элементах темы

Question

У меня странное взаимодействие между сохранением на рабочем столе и системой тем. При попытке настроить собственную тему я заметил, что некоторые элементы не соответствуют значениям темы. Такие вещи, как цвет фона или цвет курсора держали их прежние значения.

Наконец, я проследил это до моего файла .emacs.desktop , выдержка:

;; Global section:
(setq (foreground-color . "#93a1a1") (background-color . "#002b36") 
(mouse-color . "black") (border-color . "black") (screen-gamma) (line-spacing) 
(left-fringe . 10) (right-fringe . 11) (alpha) (menu-bar-lines . 1) 
(tool-bar-lines . 0) (title) (fullscreen) (icon-type) (auto-raise) (auto-lower) 
(cursor-type . box) (scroll-bar-width . 17) (horizontal-scroll-bars . t) 
(display-type . color) (background-mode . dark) (cursor-color . "#fdf6e3")

Есть ли способ заставить его этого не делать? Мне нравится функция рабочего стола для сохранения моих открытых файлов и положения окна, но я не хочу, чтобы в ней хранилась вся эта информация о стиле. Я искал и пытался установить desktop-globals-to-save и другие переменные, но, похоже, ничего не делает.

Answer 1

Эта суть работала для меня:

настольные нагрузки theme.el

(desktop-save-mode)
(add-to-list 'desktop-globals-to-save 'custom-enabled-themes)
(defun desktop-load-theme () "load custom theme" (interactive)
  (dolist (th custom-enabled-themes) (load-theme th)))
(add-hook 'desktop-after-read-hook 'desktop-load-theme)

Но это не мешает режиму сохранения рабочего стола сохранять тему в файле .desktop, а восстанавливает тему после загрузки рабочего стола. Для меня это хорошая радость.

Answer 2

Откройте файл .desktop , конфигурации цветовой темы, сохраненные в полях фреймов, этого можно избежать, установив для desktop-restore-frames значение nil .

Для получения дополнительной информации см. Документацию desktop-restore-frames :

Если не ноль, сохраните и восстановите конфигурацию кадра и окна.

Полные конфигурации:

(custom-set-variables
 '(desktop-save t)
 '(desktop-restore-frames nil)
 '(desktop-path (list "~/.emacs.d/"))
 '(desktop-dirname "~/.emacs.d/"))
(desktop-save-mode 1)