[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 1fb2569 121/241: marginalia-annotate-minor-m
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 1fb2569 121/241: marginalia-annotate-minor-mode: fix support for consult |
Date: |
Fri, 28 May 2021 20:49:10 -0400 (EDT) |
branch: externals/marginalia
commit 1fb256931b1e36de849613779c9cbe274976395d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
marginalia-annotate-minor-mode: fix support for consult
---
marginalia.el | 38 ++++++++++++++++++++------------------
1 file changed, 20 insertions(+), 18 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 6f89e7e..fc5038a 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -332,7 +332,8 @@ This hash table is needed to speed up
`marginalia-annotate-binding'.")
;; This annotator is consult-specific, it will annotate the `consult-buffer'
command.
(defun marginalia-annotate-virtual-buffer-full (cand)
"Annotate virtual-buffer CAND with the buffer class."
- (let ((cand-without-prefix (replace-regexp-in-string "^[^ ]+ " "" cand)))
+ ;; Strip consult narrowing prefix
+ (let ((cand-without-prefix (replace-regexp-in-string "^.[[:nonascii:]] " ""
cand)))
(pcase (elt cand 0)
(?b (marginalia-annotate-buffer cand-without-prefix))
(?f (marginalia-annotate-file cand-without-prefix))
@@ -469,23 +470,24 @@ Similar to `marginalia-annotate-symbol', but does not
show symbol class."
(defun marginalia-annotate-minor-mode (cand)
"Annotate minor-mode CAND with status and documentation string."
- (let* ((sym (intern-soft cand))
- (mode (if (and sym (boundp sym))
- sym
- (with-selected-window
- (or (minibuffer-selected-window) (selected-window))
- (lookup-minor-mode-from-indicator cand))))
- (lighter (cdr (assq mode minor-mode-alist)))
- (lighter-str (and lighter (string-trim (format-mode-line (cons t
lighter))))))
- (concat
- (marginalia--fields
- ((if (and (boundp mode) (symbol-value mode))
- (propertize "On" 'face 'marginalia-on)
- (propertize "Off" 'face 'marginalia-off)) :width 3)
- ((if (local-variable-if-set-p mode) "L" "G") :face 'marginalia-modified)
- (lighter-str :width 14 :face 'marginalia-lighter)
- ((marginalia--function-doc mode)
- :truncate marginalia-truncate-width :face 'marginalia-documentation)))))
+ ;; `with-selected-window' is necessary because of
`lookup-minor-mode-from-indicator'
+ (with-selected-window (minibuffer-selected-window)
+ (let* ((cand (replace-regexp-in-string "^\\(.[[:nonascii:]] \\)+" ""
cand)) ;; Strip consult narrowing prefix
+ (sym (intern-soft cand))
+ (mode (if (and sym (boundp sym))
+ sym
+ (lookup-minor-mode-from-indicator cand)))
+ (lighter (cdr (assq mode minor-mode-alist)))
+ (lighter-str (and lighter (string-trim (format-mode-line (cons t
lighter))))))
+ (concat
+ (marginalia--fields
+ ((if (and (boundp mode) (symbol-value mode))
+ (propertize "On" 'face 'marginalia-on)
+ (propertize "Off" 'face 'marginalia-off)) :width 3)
+ ((if (local-variable-if-set-p mode) "Local" "Global") :width 6 :face
'marginalia-modified)
+ (lighter-str :width 14 :face 'marginalia-lighter)
+ ((marginalia--function-doc mode)
+ :truncate marginalia-truncate-width :face
'marginalia-documentation))))))
(defun marginalia-annotate-package (cand)
"Annotate package CAND with its description summary."
- [elpa] externals/marginalia 2f1bb7c 064/241: do not overwrite the face weights as per recommendation by @purcell, (continued)
- [elpa] externals/marginalia 2f1bb7c 064/241: do not overwrite the face weights as per recommendation by @purcell, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 785297d 075/241: Indicate advised functions with an asterisk, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 0bd8061 077/241: marginalia--fields: allow alignment to the right by using a negative width, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia f16d26a 082/241: marginalia-annotate-symbol: add keybindings to commands, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia b0c24f7 088/241: introduce marginalia-annotate-command, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia bbde111 083/241: Annotate environment variables with their value, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 618fd9e 084/241: Improve formatting of environment variable annotation, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 3559cbb 095/241: update readme, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 27cd29d 101/241: add buffer size annotation, fix #29, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 3360875 113/241: Rename marginalia-cycle-annotators to marginalia-cycle, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 1fb2569 121/241: marginalia-annotate-minor-mode: fix support for consult,
Stefan Monnier <=
- [elpa] externals/marginalia 35cb523 127/241: add comment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d38a278 151/241: readme: do not export drawers, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 3febe72 155/241: fix #45, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 7d3f018 024/241: Add annotations for files and buffers, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia f083852 066/241: readme: add embark and consult links, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia ef325fc 073/241: In symbol annotator skip lines about advice in function docstring, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d2a7923 069/241: improve marginalia-annotate-package, do not show nil for builtins, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6e8ba6d 079/241: add marginalia-annotate-imenu, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia fbd898d 087/241: rename marginalia-annotate-command to marginalia-annotate-binding, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia e833584 103/241: improve marginalia-classify-symbol, Stefan Monnier, 2021/05/28