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

Simplify the test for warm or cool preference (see commit d0f1537)

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-11-25 10:54:41 +02:00
parent d0f1537f95
commit c2cf943239
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
modus-themes.el
View file

@ -7569,7 +7569,7 @@ return FALLBACK-PREFERENCE"
(if (memq fallback-preference '(warm cool))
fallback-preference
(error "FALLBACK-PREFERENCE must be either `warm' or `cool', not `%S'" fallback-preference)))
((> (color-distance color "#ff0000") (color-distance color "#0000ff"))
((modus-themes-color-warm-p color)
'warm)
(t
'cool)))
@ -7650,11 +7650,8 @@ rest come from CORE-PALETTE."
(eq (car name) 'fg-main)))
base-colors))
(prefers-cool-p (cond
((and cool-or-warm-preference (memq cool-or-warm-preference '(cool warm)))
(eq cool-or-warm-preference 'cool))
((modus-themes-color-is-warm-or-cool-p bg-main 'cool))
(t
(error "The COOL-OR-WARM-PREFERENCE must be either `cool' or `warm', not `%S'" cool-or-warm-preference))))
(cool-or-warm-preference (eq cool-or-warm-preference 'cool))
(t (eq (modus-themes-color-is-warm-or-cool-p bg-main 'cool) 'cool))))
(derived-colors nil)
(derived-mappings nil)
(push-derived-value-fn (lambda (name value)