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

Implement modus-themes-color-warm-p because color-distance fails to do what I assumed

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

14
modus-themes.el
View file

@ -7546,6 +7546,20 @@ inclusive."
#'color-darken-name)))
(funcall fn color percent)))
;; NOTE 2025-11-25: I used to rely on `color-distance', thinking that
;; it would do the right thing here:
;;
;; (> (color-distance color "#ff0000") (color-distance color "#0000ff"))
;;
;; But my understanding of "warm" versus "cold" is simple, so better
;; do it my way.
(defun modus-themes-color-warm-p (color)
"Return non-nil if COLOR is warm.
A warm color has more contribution from the red and green channels of
light than from the green and blue."
(pcase-let ((`(,r ,g ,b) (color-name-to-rgb color)))
(> (+ r g) (+ g b))))
(defun modus-themes-color-is-warm-or-cool-p (color fallback-preference)
"Return `warm' or `cool' for COLOR depending on its value.
A warm color is closer to red than to blue. If COLOR is neutral, then