[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 783cb49 067/241: improve marginalia-minor-mo
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 783cb49 067/241: improve marginalia-minor-mode |
Date: |
Fri, 28 May 2021 20:48:58 -0400 (EDT) |
branch: externals/marginalia
commit 783cb49416ae65726b924a63c07769e2f001d079
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
improve marginalia-minor-mode
* try less expensive check first
* adjust lighter width
---
marginalia.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 20f5883..5457914 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -307,11 +307,12 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
(defun marginalia-annotate-minor-mode (cand)
"Annotate minor-mode CAND with status and documentation string."
- (let* ((ind
- (with-selected-window
- (or (minibuffer-selected-window) (selected-window))
- (lookup-minor-mode-from-indicator cand)))
- (mode (or ind (intern cand)))
+ (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
@@ -319,7 +320,7 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
((if (and (boundp mode) (symbol-value mode))
(propertize "On" 'face 'marginalia-on)
(propertize "Off" 'face 'marginalia-off)) :width 3)
- ((or lighter-str "") :width 10 :face 'marginalia-lighter)
+ ((or lighter-str "") :width 14 :face 'marginalia-lighter)
((or (ignore-errors (documentation mode)) "")
:truncate marginalia-truncate-width
:face 'marginalia-documentation)))))
- [elpa] externals/marginalia 3669f4d 224/241: Stop using the obsolete project-roots function, (continued)
- [elpa] externals/marginalia 3669f4d 224/241: Stop using the obsolete project-roots function, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 445d283 234/241: README: Update helper commands (Use remq instead of delq), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia a0e9903 237/241: Remove marginalia--annotate-binding-hash (See #16), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia bc8e5f2 178/241: customize group: more restrictive prompt classifier, Stefan Monnier, 2021/05/28
- [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 <=
- [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, 2021/05/28
- [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