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

Replace vtable--color-blend with color-blend

Browse Source 
* lisp/emacs-lisp/vtable.el (vtable--face-color): Use `color-blend'.
(vtable--color-blend): Remove unused function.
This commit is contained in:
Joseph Turner 2024-11-01 22:21:34 -07:00 committed by Eli Zaretskii
parent bf312529de
commit fdab542a56
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/emacs-lisp/vtable.el
View File

@ -213,18 +213,12 @@ See info node `(vtable)Top' for vtable documentation."
(funcall accessor face2)
(plist-get face2 slot))))
(if (and col1 col2)
(vtable--color-blend col1 col2)
(apply #'color-rgb-to-hex
`(,@(color-blend (color-name-to-rgb col1)
(color-name-to-rgb col2))
2))
(or col1 col2))))
;;; FIXME: This is probably not the right way to blend two colors, is
;;; it?
(defun vtable--color-blend (color1 color2)
(cl-destructuring-bind (r g b)
(mapcar (lambda (n) (* (/ n 2) 255.0))
(cl-mapcar #'+ (color-name-to-rgb color1)
(color-name-to-rgb color2)))
(format "#%02X%02X%02X" r g b)))
;;; Interface utility functions.
(defun vtable-current-table ()