[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 7743fd7 109/241: add marginalia-annotate-cha
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 7743fd7 109/241: add marginalia-annotate-char |
Date: |
Fri, 28 May 2021 20:49:07 -0400 (EDT) |
branch: externals/marginalia
commit 7743fd702bc99e75c0940777a76259839253a136
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
add marginalia-annotate-char
---
marginalia.el | 27 ++++++++++++++++++++++++---
1 file changed, 24 insertions(+), 3 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 575a199..5d3ec98 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -77,6 +77,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)
+ (unicode-name . marginalia-annotate-char)
(minor-mode . marginalia-annotate-minor-mode)
(symbol . marginalia-annotate-symbol)
(variable . marginalia-annotate-variable)
@@ -149,6 +150,10 @@ determine it."
'((t :inherit font-lock-keyword-face))
"Face used to highlight keys in `marginalia-mode'.")
+(defface marginalia-char
+ '((t :inherit marginalia-key))
+ "Face used to highlight char in `marginalia-mode'.")
+
(defface marginalia-lighter
'((t :inherit marginalia-size))
"Face used to highlight lighters in `marginalia-mode'.")
@@ -178,7 +183,7 @@ determine it."
"Face used to highlight dates in `marginalia-mode'.")
(defface marginalia-version
- '((t :inherit marginalia-size))
+ '((t :inherit marginalia-number))
"Face used to highlight package version in `marginalia-mode'.")
(defface marginalia-archive
@@ -190,9 +195,13 @@ determine it."
"Face used to highlight package status in `marginalia-mode'.")
(defface marginalia-size
- '((t :inherit font-lock-constant-face))
+ '((t :inherit marginalia-number))
"Face used to highlight sizes in `marginalia-mode'.")
+(defface marginalia-number
+ '((t :inherit font-lock-constant-face))
+ "Face used to highlight char in `marginalia-mode'.")
+
(defface marginalia-modified
'((t :inherit font-lock-negation-char-face))
"Face used to highlight modification indicators in `marginalia-mode'.")
@@ -435,13 +444,25 @@ Similar to `marginalia-annotate-symbol', but does not
show symbol class."
(val :truncate marginalia-truncate-width :face 'marginalia-variable))))
(defun marginalia-annotate-face (cand)
- "Annotate face CAND with documentation string and face example."
+ "Annotate face CAND with its documentation string and face example."
(when-let (sym (intern-soft cand))
(marginalia--fields
("abcdefghijklmNOPQRSTUVWXYZ" :face sym)
((documentation-property sym 'face-documentation)
:truncate marginalia-truncate-width :face 'marginalia-documentation))))
+(defun marginalia-annotate-char (cand)
+ "Annotate character CAND with its general character category and character
code."
+ (when-let (char (char-from-name cand t))
+ (concat
+ (propertize (format " (%c)" char) 'face 'marginalia-char)
+ (marginalia--fields
+ (char :format "%05x" :face 'marginalia-number)
+ ((char-code-property-description
+ 'general-category
+ (get-char-code-property char 'general-category))
+ :width 30 :face 'marginalia-documentation)))))
+
(defun marginalia-annotate-minor-mode (cand)
"Annotate minor-mode CAND with status and documentation string."
(let* ((sym (intern-soft cand))
- [elpa] externals/marginalia 6caf9f0 202/241: Add link to readme (Fix #66), (continued)
- [elpa] externals/marginalia 6caf9f0 202/241: Add link to readme (Fix #66), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 5ce5a0e 200/241: marginalia-annotate-color: Add component letters, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 668265a 211/241: Simplify setup, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 9ca180b 026/241: richer formatting of file and buffer annotations, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 2805127 058/241: introduce a small dsl marginalia--fields which helps with formatting, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 31ba78b 072/241: add marginalia-annotate-coding-system, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 783cb49 067/241: improve marginalia-minor-mode, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 659a550 081/241: show annotations even if no documentation is present, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 56ad689 094/241: modify marginalia-annotate-imenu regexp such that it works with consult narrowing, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia ac53a00 097/241: optimize marginalia--truncate, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 7743fd7 109/241: add marginalia-annotate-char,
Stefan Monnier <=
- [elpa] externals/marginalia 78f676e 122/241: marginalia-annotate-package: use package-desc-status, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 0c5521a 126/241: fix window context for Embark Occur, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia b75f43e 128/241: fix #34, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia e132638 134/241: marginalia-annotate-buffer: show remote indicator, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 4d4f639 140/241: fix project file/buffer annotations for consult-buffer, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 5a644d8 143/241: abbreviate list-buffers-directory, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 2a9df61 145/241: readme fixes, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 51b6dbf 147/241: readme fixes, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 7d4f07f 146/241: add marginalia.texi, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia a2f9242 154/241: fix marginalia-annotate-bookmark for front context with newlines, Stefan Monnier, 2021/05/28