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