[elpa] externals/marginalia 5ce5a0e 200/241: marginalia-annotate-color: Add component letters

[Stefan Monnier]

branch: externals/marginalia
commit 5ce5a0e6d23d92391167a49d994f093764ee0dee
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia-annotate-color: Add component letters
---
 marginalia.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 63dd2f5..6627d52 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -491,14 +491,14 @@ keybinding since CAND includes it."
       (marginalia--fields
        ("      " :face `(:background ,(apply #'color-rgb-to-hex rgb)))
        ((format "%s%s%s %s"
-         (propertize " " 'face `(:background ,(color-rgb-to-hex r 0 0)))
-         (propertize " " 'face `(:background ,(color-rgb-to-hex 0 g 0)))
-         (propertize " " 'face `(:background ,(color-rgb-to-hex 0 0 b)))
+         (propertize "r" 'face `(:background ,(color-rgb-to-hex r 0 0)))
+         (propertize "g" 'face `(:background ,(color-rgb-to-hex 0 g 0)))
+         (propertize "b" 'face `(:background ,(color-rgb-to-hex 0 0 b)))
          (color-rgb-to-hex r g b 2)))
        ((format "%s%s%s %3s° %3s%% %3s%%"
-         (propertize " " 'face `(:background ,(apply #'color-rgb-to-hex 
(color-hsl-to-rgb h 1 0.5))))
-         (propertize " " 'face `(:background ,(apply #'color-rgb-to-hex 
(color-hsl-to-rgb h s 0.5))))
-         (propertize " " 'face `(:background ,(apply #'color-rgb-to-hex 
(color-hsl-to-rgb h 1 l))))
+         (propertize "h" 'face `(:background ,(apply #'color-rgb-to-hex 
(color-hsl-to-rgb h 1 0.5))))
+         (propertize "s" 'face `(:background ,(apply #'color-rgb-to-hex 
(color-hsl-to-rgb h s 0.5))))
+         (propertize "l" 'face `(:background ,(apply #'color-rgb-to-hex 
(color-hsl-to-rgb 0 0 l))))
          (round (* 360 h))
          (round (* 100 s))
          (round (* 100 l))))))))