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

Fix modus-themes-generate-palette old assumption about the six accent colours

Browse source 
This was fine when I originally implemented it, but then I changed
some other parts and forgot to update this one...
This commit is contained in:
Protesilaos Stavrou 2025-11-26 13:06:27 +02:00
parent ffdee3a436
commit 1ee7c20971
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
modus-themes.el
View file

@ -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))