mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

; Fix last changes

Browse Source 
* lisp/color.el (color-blend): Fix quoting of apostrophe.
(color-rgb-to-hex, color-blend): Autoload.
This commit is contained in:
Eli Zaretskii 2024-11-09 12:45:14 +02:00
parent fdab542a56
commit 17f4f2dec9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/color.el
View File

@ -55,6 +55,7 @@ If FRAME cannot display COLOR, return nil."
(let ((valmax (float (car (color-values "#ffffffffffff")))))
(mapcar (lambda (x) (/ x valmax)) (color-values color frame))))
;;;###autoload
(defun color-rgb-to-hex (red green blue &optional digits-per-component)
"Return hexadecimal #RGB notation for the color specified by RED GREEN BLUE.
RED, GREEN, and BLUE should be numbers between 0.0 and 1.0, inclusive.
@ -75,6 +76,7 @@ components (e.g. \"#ffff1212ecec\")."
(- 1.0 (nth 1 color))
(- 1.0 (nth 2 color)))))
;;;###autoload
(defun color-blend (a b &optional alpha)
"Blend the two colors A and B in linear space with ALPHA.
A and B should be lists (RED GREEN BLUE), where each element is
@ -83,7 +85,7 @@ has on the result and should be between 0.0 and 1.0, inclusive.
For instance:
(color-blend '(1 0.5 1) '(0 0 0) 0.75)
(color-blend \\='(1 0.5 1) \\='(0 0 0) 0.75)
=> (0.75 0.375 0.75)"
(setq alpha (or alpha 0.5))
(let (blend)