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

Add two error checks for the type of modus-themes-generate-palette arguments

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

10
modus-themes.el
View file

@ -7597,6 +7597,16 @@ COOL-OR-WARM-PREFERENCE.
With optional MAPPINGS use them instead of trying to derive new ones."
(require 'color)
(when (seq-some
(lambda (entry)
(not (stringp (cdr entry))))
base-colors)
(error "Base colors can only be references to string color values, not symbols"))
(when (seq-some
(lambda (entry)
(stringp (cdr entry)))
mappings)
(error "Mappings can only be references to named colors, not color values"))
(let ((bg-main (alist-get 'bg-main base-colors))
(fg-main (alist-get 'fg-main base-colors)))
(unless (and bg-main fg-main)