branch: externals/modus-themes
commit 175a5194949b40b4b815e07f709fd1e4a0e9299a
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Tweak the adjustment for derivative backgrounds in
modus-themes-generate-palette and add TODO about it
---
modus-themes.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/modus-themes.el b/modus-themes.el
index 4e7fcbd35e..2aec4fbc66 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -7724,9 +7724,12 @@ rest come from CORE-PALETTE."
(funcall push-derived-value-fn (intern (format "%s-cooler" name))
(modus-themes-generate-gradient (modus-themes-generate-color-cooler value 0.9)
(if bg-main-dark-p 20 -20)))
(funcall push-derived-value-fn (intern (format "%s-faint" name))
(modus-themes-generate-gradient value (if bg-main-dark-p 10 -10)))
(funcall push-derived-value-fn (intern (format "%s-intense" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -5 5)))
- (funcall push-derived-value-fn (intern (format "bg-%s-intense" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -50 50)))
- (funcall push-derived-value-fn (intern (format "bg-%s-subtle" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -70 70)))
- (funcall push-derived-value-fn (intern (format "bg-%s-nuanced" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -90 90))))
+ ;; TODO 2025-12-06: We should have a function here that adjusts the
value also up to a
+ ;; maximum distance from bg-main. Basically, we want to avoid the
scenario where a given
+ ;; base value produces something that is virtually indistinguishable
from bg-main.
+ (funcall push-derived-value-fn (intern (format "bg-%s-intense" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -40 40)))
+ (funcall push-derived-value-fn (intern (format "bg-%s-subtle" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -60 60)))
+ (funcall push-derived-value-fn (intern (format "bg-%s-nuanced" name))
(modus-themes-generate-gradient value (if bg-main-dark-p -80 80))))
;; Mappings
(funcall push-mapping-fn 'bg-completion (if prefers-cool-p
'bg-cyan-subtle 'bg-yellow-subtle))
(funcall push-mapping-fn 'bg-hover (if prefers-cool-p 'bg-green-intense
'bg-magenta-intense))
