[elpa] externals/marginalia dfbaa7f 061/241: marginalia-annotate-package: show installed status instead of archive

[Stefan Monnier]

branch: externals/marginalia
commit dfbaa7fe5a52de3297e0df782fb1a17f1daa8b43
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)