[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 9d7f17f 199/241: Add marginalia-annotate-col
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 9d7f17f 199/241: Add marginalia-annotate-color (Fix #64) |
Date: |
Fri, 28 May 2021 20:49:26 -0400 (EDT) |
branch: externals/marginalia
commit 9d7f17f96f0c5cc8445dbd8c9b635456dafeeab2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Add marginalia-annotate-color (Fix #64)
---
marginalia.el | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/marginalia.el b/marginalia.el
index 02e5f39..63dd2f5 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -87,6 +87,7 @@ only with the annotations that come with Emacs) without
disabling
(customize-group . marginalia-annotate-customize-group)
(variable . marginalia-annotate-variable)
(face . marginalia-annotate-face)
+ (color . marginalia-annotate-color)
(unicode-name . marginalia-annotate-char)
(minor-mode . marginalia-annotate-minor-mode)
(symbol . marginalia-annotate-symbol)
@@ -139,6 +140,7 @@ determine it."
("\\<package\\>" . package)
("\\<bookmark\\>" . bookmark)
("\\<face\\>" . face)
+ ("\\<color\\>" . color)
("\\<environment variable\\>" . environment-variable)
("\\<variable\\>" . variable)
("\\<input method\\>" . input-method)
@@ -481,6 +483,26 @@ keybinding since CAND includes it."
((documentation-property sym 'face-documentation)
:truncate marginalia-truncate-width :face 'marginalia-documentation))))
+(defun marginalia-annotate-color (cand)
+ "Annotate face CAND with its documentation string and face example."
+ (when-let (rgb (color-name-to-rgb cand))
+ (pcase-let ((`(,r ,g ,b) rgb)
+ (`(,h ,s ,l) (apply #'color-rgb-to-hsl rgb)))
+ (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)))
+ (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))))
+ (round (* 360 h))
+ (round (* 100 s))
+ (round (* 100 l))))))))
+
(defun marginalia-annotate-char (cand)
"Annotate character CAND with its general character category and character
code."
(when-let (char (char-from-name cand t))
- [elpa] externals/marginalia 436cd05 175/241: consult--multi preserves the original candidate, (continued)
- [elpa] externals/marginalia 436cd05 175/241: consult--multi preserves the original candidate, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 548bf39 012/241: more explicit name for marginalia-command-annotate, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia bcb6bbb 022/241: Correct slight imprecision in docstring, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 642e25d 057/241: replace marginalia-separator-width by marginalia-separator, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia cb64b10 135/241: add comment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia aa41183 156/241: treat bookmarks as normal alists, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 62ed158 183/241: Version 0.3, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d2b43ed 189/241: Use project-roots (project-root is Emacs 28), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 321feea 196/241: Increase marginalia-margin-threshold, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 1a65026 195/241: marginalia-annotate-buffer: Truncate mode-name to fix alignment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 9d7f17f 199/241: Add marginalia-annotate-color (Fix #64),
Stefan Monnier <=
- [elpa] externals/marginalia b1e5139 226/241: README: Add contributions section, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 2437a6f 230/241: marginalia-cycle: Check for affixation-function, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 844233c 239/241: Update readme, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia a78a4b3 149/241: fix headline, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6c8b158 030/241: add license, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia f7adb62 044/241: fix #14, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6567947 050/241: marginalia-annotate-command-binding: use a hash table per buffer, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 1077dba 123/241: update comment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 54a61c7 137/241: update marginalia comment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 35a42dc 142/241: improve buffer directory annotation, Stefan Monnier, 2021/05/28