blob: 4cd07c7c1d002509249a84a1cbb3ca223c3be718 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
(defun my/color-mix (color-1 color-2 ratio)
(let* ((c1 (color-name-to-rgb color-1))
(c2 (color-name-to-rgb color-2))
(mix (-zip-with
(lambda (i1 i2) (+ (* ratio i1)
(* (- 1 ratio) i2)))
c1 c2)))
(apply 'color-rgb-to-hex `(,@mix 2))))
;; Alternate implementation without -zip-with from dash.
(defun my/color-mix (color-1 color-2 ratio)
(let* ((c1 (color-name-to-rgb color-1))
(c2 (color-name-to-rgb color-2))
(mix (seq-map
(lambda (pair) (+ (* ratio (car pair))
(* (- 1 ratio) (cdr pair))))
(cl-pairlis c1 c2))))
(apply 'color-rgb-to-hex `(,@mix 2))))
;; Diff faces.
(list-colors-display
(seq-map (lambda (r) (my/color-mix "gray20" "steelblue2" r))
(number-sequence 0.0 1.0 0.01))
"*steelblues*")
(list-colors-display
(seq-map (lambda (r) (my/color-mix "gray20" "orange2" r))
(number-sequence 0.0 1.0 0.01))
"*oranges*")
;; background:
(my/color-mix "gray20" "orange2" 0.9)
(my/color-mix "gray20" "steelblue2" 0.9)
(my/color-mix "gray20" "gold2" 0.9)
(my/color-mix "gray20" "maroon2" 0.9)
;; refined:
(my/color-mix "gray20" "orange2" 0.6)
(my/color-mix "gray20" "steelblue2" 0.6)
(my/color-mix "gray20" "gold2" 0.6)
(my/color-mix "gray20" "maroon2" 0.6)
|
