branch: externals/marginalia
commit dfbaa7fe5a52de3297e0df782fb1a17f1daa8b43
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
marginalia-annotate-package: show installed status instead of archive
archive is nil for installed packages
---
marginalia.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/marginalia.el b/marginalia.el
index 0e004a0..af8474e 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -196,6 +196,7 @@ determine it."
(declare-function package-desc-summary "package")
(declare-function package-desc-version "package")
(declare-function package-desc-archive "package")
+(declare-function package-installed-p "package")
(declare-function package-version-join "package")
(declare-function package--from-builtin "package")
@@ -307,7 +308,9 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
(car (alist-get pkg package-archive-contents))))))
(marginalia--fields
((package-version-join (package-desc-version desc)) :width 16 :face
'marginalia-version)
- ((package-desc-archive desc) :width 8 :face 'marginalia-archive)
+ ((if (package-installed-p desc)
+ "installed"
+ (package-desc-archive desc)) :width 9 :face 'marginalia-archive)
((package-desc-summary desc) :truncate marginalia-documentation-width
:face 'marginalia-documentation))))
(defun marginalia-annotate-customize-group (cand)
