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 time of alist evaluation and concomitant logic

Browse source
This commit is contained in:
Protesilaos Stavrou 2020-11-14 20:55:26 +02:00
parent 5878251285
commit 3363730cc5
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
modus-themes-core.el
View file

@ -10,18 +10,22 @@
(defvar modus-themes-vivendi-colors)
(defvar modus-themes)
(defun modus-themes-core-theme-variables (name)
"Return correct variable for Modus theme NAME."
(pcase name
(''modus-operandi modus-themes-operandi-colors)
(''modus-vivendi modus-themes-vivendi-colors)
(_ (user-error "<< %s >> is not a valid Modus theme" name))))
(defmacro modus-themes-core-theme (name &rest body)
"Bind NAME's palette to `custom-theme-set-faces' around BODY.
NAME should be the proper name of the theme, either 'modus-operandi' or 'modus-vivendi'."
(let ((colors (if `(eq ,name 'modus-operandi) ; TODO: consider `pcase' with `user-error'
modus-themes-operandi-colors
modus-themes-vivendi-colors))
(specs (or `,body modus-themes)))
(let ((specs (or `,body modus-themes)))
`(let ((class '((class color) (min-colors 89)))
,@(mapcar (lambda (cons)
`(,(car cons) ,(cdr cons)))
colors))
(modus-themes-core-theme-variables name)))
(custom-theme-set-faces
,name
,@specs))))