branch: externals/modus-themes
commit 1ee7c209711b107b5d264f8de84911b6ed2b4dcc
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Fix modus-themes-generate-palette old assumption about the six accent
colours
This was fine when I originally implemented it, but then I changed
some other parts and forgot to update this one...
---
modus-themes.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/modus-themes.el b/modus-themes.el
index 05a5045ca3..0df347a13c 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -7678,10 +7678,9 @@ rest come from CORE-PALETTE."
(let* ((bg-main (car bg-main))
(bg-main-dark-p (color-dark-p (color-name-to-rgb bg-main)))
(fg-main (car fg-main))
- (six-colors (seq-remove
- (lambda (name)
- (or (eq (car name) 'bg-main)
- (eq (car name) 'fg-main)))
+ (six-colors (seq-filter
+ (lambda (color)
+ (memq (car color) '(red green yellow blue magenta
cyan)))
base-colors))
(prefers-cool-p (cond
(cool-or-warm-preference (eq
cool-or-warm-preference 'cool))
