emacs/protesilaos.modus-themes
1
0
Fork 0
mirror of https://github.com/protesilaos/modus-themes.git synced 2026-09-10 07:16:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Only disable 'color-schemes' with modus-themes-disable-other-themes

Browse source 
This is because Emacs 31 comes with a "newcomer" theme that we do not
want to disable by mistake.
This commit is contained in:
Protesilaos Stavrou 2026-02-22 08:43:39 +02:00
parent ecd696daf8
commit b45b0d8a7c
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
modus-themes.el
View file

@ -3927,10 +3927,18 @@ If THEME is unknown, return nil. Else return (append OVERRIDES USER CORE)."
(defun modus-themes--disable-themes (themes)
"Disable THEMES per `modus-themes-disable-other-themes'."
(mapc #'disable-theme
(if modus-themes-disable-other-themes
themes
(seq-filter #'modus-themes--modus-theme-p themes))))
(mapc
#'disable-theme
(if modus-themes-disable-other-themes
themes
(seq-filter #'modus-themes--modus-theme-p themes))))
(defun modus-themes--get-color-schemes ()
"Return `custom-enabled-themes' of :kind `color-scheme'."
(seq-filter
(lambda (theme)
(eq (plist-get (get theme 'theme-properties) :kind) 'color-scheme))
custom-enabled-themes))
(defun modus-themes-load-theme (theme &optional hook)
"Load THEME while disabling other themes.
@ -3943,7 +3951,7 @@ after loading the THEME. If HOOK, then call that instead.
Return THEME."
(load-theme theme :no-confirm)
(modus-themes--disable-themes (remq theme custom-enabled-themes))
(modus-themes--disable-themes (remq theme (modus-themes--get-color-schemes)))
(run-hooks (or hook 'modus-themes-after-load-theme-hook))
theme)