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

Revise modus-themes-with-colors to work with dynamic variables

Browse source 
This is how it used to be. I am addressing a regression that was
introduced in Modus themes version 5.0.0.

Thanks to Alexandr Semenov and realazy for testing my patch in issue
170: <https://github.com/protesilaos/modus-themes/issues/170>.
This commit is contained in:
Protesilaos Stavrou 2025-12-19 15:04:34 +02:00
parent 4ac7fdd6c7
commit 7a86cf49a8
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
modus-themes.el
View file

@ -7471,23 +7471,23 @@ whose value is another symbol, which ultimately resolves to a string or
(semantic-unique (funcall unique-fn semantic)))
(nreverse (nconc semantic-unique named-unique)))))
(defun modus-themes-with-colors-subr (expressions)
"Do the work of `modus-themes-with-colors' for EXPRESSIONS."
(defun modus-themes-with-colors-subr (body)
"Do the work of `modus-themes-with-colors' for BODY."
(condition-case data
(when-let* ((theme (modus-themes-get-current-theme)))
(when-let* ((modus-themes-with-colors--current (modus-themes-get-current-theme))
(palette (modus-themes--with-colors-get-palette modus-themes-with-colors--current))
(sorted (modus-themes--with-colors-resolve-palette-sort palette)))
(eval
`(let* ((c '((class color) (min-colors 256)))
(unspecified 'unspecified)
,@(modus-themes--with-colors-resolve-palette-sort
(modus-themes--with-colors-get-palette theme)))
,@expressions)
:lexical))
,@sorted)
(funcall ',body))))
(error (message "Error in `modus-themes-with-colors': %s" data))))
(defmacro modus-themes-with-colors (&rest body)
"Evaluate BODY with colors from current palette bound."
(declare (indent 0))
`(modus-themes-with-colors-subr ',body))
`(modus-themes-with-colors-subr (lambda () ,@body)))
;;;; Declare all the Modus themes