IO
Например, какой-нибудь inverse-video атрибут у одного фейса от старой темы может применяться к новой
Size: a a a
2020 September 07
IO
Короче, все решаемо
IO
Есть disable-theme
IO
Берешь и отрубаешь всё кроме текущей темы
PG
yosk
Темы, которые входят в дефолтный emacs тоже хуевые? (при переключении levuen -> whiteboard та же проблема, обе темы вроде есть по дефолту).
Попробуй через customize-themes
y
Как я понял, проблема возникает когда включена более чем одна тема. А как можно выключать все темы, кроме последней включенной?
IO
У меня сейчас висит деустоп, поэтому я не могу проверить, но вроде список тем лежит в custom-enabled-themes
IO
И можно просто взять первые n-1 и в цикле поотключать
IO
IO
Примерно как тут
PG
yosk
Как я понял, проблема возникает когда включена более чем одна тема. А как можно выключать все темы, кроме последней включенной?
Не ебать мозг и пользоваться кастомом
y
Не ебать мозг и пользоваться кастомом
Не ебать мозг - скучно! Вот это я написал. Проверку на null наверное можно объединить со вторым пунктом. Кроме того, я не знаю что используется вместо
else в elisp, поставил t. Вроде работает, но я очень мало программировал на elisp-е (конфиг на use-package не в счет), возможно код можно улучшить.(defun disable-previous-themes ()
"Disable themes enabled earlier to avoid faces conflict"
()
(cond
((null custom-enabled-themes) nil)
((= (length custom-enabled-themes) 1) t)
(t (progn
(disable-theme (cadr custom-enabled-themes))
(disable-previous-themes)))))
PG
t и используется
PG
блять, вот где учат писать
(= (length custom-enabled-themes) 1)?PG
кажется в схеме
y
Нигде, а что? Я не знаю как можно написать лучше.
y
блять, вот где учат писать
(= (length custom-enabled-themes) 1)?Чем это плохо и как это можно исправить?
PG
тем, что
(= 1 (length custom-enabled-themes)) гораздо проще читатьy
тем, что
(= 1 (length custom-enabled-themes)) гораздо проще читатьЯ разницы не чувствую, но учту.
PG
Пока я жив
(defun disable-themes-but-first ()
;; Шоб було
(interactive)
(mapc #'disable-theme (cdr-safe custom-enabled-themes)))