Fix: (ement-room--user-color)

This commit is contained in:
Adam Porter 2020-12-19 11:41:23 -06:00
parent e9ccdfa85d
commit 96a6fd4415

View file

@ -717,8 +717,8 @@ For use as a `help-echo' function on `ement-user' headings."
;; implementation by Protesilaos Stavrou. Also see
;; <https://en.wikipedia.org/wiki/Relative_luminance> and
;; <https://www.w3.org/TR/WCAG20/#relativeluminancedef>.
(name) (cl-loop for k in '(0.2126 0.7152 0.0722)
for x in (color-name-to-rgb name)
(rgb) (cl-loop for k in '(0.2126 0.7152 0.0722)
for x in rgb
sum (* k (if (<= x 0.03928)
(/ x 12.92)
(expt (/ (+ x 0.055) 1.055) 2.4)))))