[elpa] externals/marginalia 78f676e 122/241: marginalia-annotate-package: use package-desc-status

[Stefan Monnier]

branch: externals/marginalia
commit 78f676e65343d8865e5b920afd3a6875458bfbc7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia-annotate-package: use package-desc-status
---
 marginalia.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index fc5038a..617a1e7 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -225,10 +225,9 @@ determine it."
 (defvar package-archive-contents)
 (declare-function package--from-builtin "package")
 (declare-function package-desc-archive "package")
-(declare-function package-desc-dir "package")
 (declare-function package-desc-summary "package")
 (declare-function package-desc-version "package")
-(declare-function package-installed-p "package")
+(declare-function package-desc-status "package")
 (declare-function package-version-join "package")
 
 (declare-function project-current "project")
@@ -500,9 +499,8 @@ Similar to `marginalia-annotate-symbol', but does not show 
symbol class."
     (marginalia--fields
      ((package-version-join (package-desc-version desc)) :width 16 :face 
'marginalia-version)
      ((cond
-       ((eq (package-desc-dir desc) 'builtin) (propertize "builtin" 'face 
'marginalia-installed))
-       ((not (package-desc-archive desc)) (propertize "installed" 'face 
'marginalia-installed))
-       (t (propertize (package-desc-archive desc) 'face 'marginalia-archive))) 
:width 9)
+       ((package-desc-archive desc) (propertize (package-desc-archive desc) 
'face 'marginalia-archive))
+       (t (propertize (or (package-desc-status desc) "orphan") 'face 
'marginalia-installed))) :width 10)
      ((package-desc-summary desc) :truncate marginalia-truncate-width :face 
'marginalia-documentation))))
 
 (defun marginalia-annotate-customize-group (cand)