emacs/protesilaos.modus-themes
1
0
Fork 0
mirror of https://github.com/protesilaos/modus-themes.git synced 2026-09-10 07:16:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Define helper to reduce a color from 4 digits per triplet to 2

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-11-26 06:04:00 +02:00
parent ecfd90d430
commit 1129cf5f92
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
modus-themes.el
View file

@ -7540,6 +7540,18 @@ For instance:
(push (+ (* (nth i a) alpha) (* (nth i b) (- 1 alpha))) blend))
(nreverse blend)))
(defun modus-themes--color-six-digits (color)
"Reduce representation of hexadecimal RGB COLOR to six digits."
(let ((color-no-hash (substring color 1)))
(if (= (length color-no-hash) 6)
color
(let* ((triplets (seq-split color-no-hash 4))
(triplets-shortened (mapcar
(lambda (string)
(substring string 0 2))
triplets)))
(concat "#" (string-join triplets-shortened))))))
(defun modus-themes-generate-color-blend (color blended-with alpha)
"Return hexademical RGB of COLOR with BLENDED-WITH given ALPHA.
BLENDED-WITH is commensurate with COLOR. ALPHA is between 0.0 and 1.0,