yogsototh/emacs-doom-themes
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

doom-blend: fail gracefully

Browse source
This commit is contained in:
Henrik Lissner 2017-05-02 01:10:52 -04:00
parent 1c83194bba
commit b07c405a18
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
doom-themes.el
View file

@ -126,10 +126,11 @@ for FRAME (defaults to the current frame)."
(defun doom-blend (color1 color2 alpha)
"Blend two colors (hexidecimal strings) together by a coefficient ALPHA (a
float between 0 and 1)"
(apply (lambda (r g b) (format "#%02x%02x%02x" (* r 255) (* g 255) (* b 255)))
(cl-mapcar (lambda (it other) (+ (* alpha it) (* other (- 1 alpha))))
(doom-name-to-rgb color1)
(doom-name-to-rgb color2))))
(when (and color1 color2)
(apply (lambda (r g b) (format "#%02x%02x%02x" (* r 255) (* g 255) (* b 255)))
(cl-mapcar (lambda (it other) (+ (* alpha it) (* other (- 1 alpha))))
(doom-name-to-rgb color1)
(doom-name-to-rgb color2)))))
(defun doom-darken (color alpha)
"Darken a COLOR (a hexidecimal string) by a coefficient ALPHA (a float between