[elpa] externals/marginalia 85a2693 053/241: marginalia-annotate-package: show package archive

[Stefan Monnier]

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

    marginalia-annotate-package: show package archive
---
 marginalia.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 98a8621..db9e6be 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -64,6 +64,11 @@
   "Face used to highlight dates in `marginalia-mode'."
   :group 'marginalia)
 
+(defface marginalia-archive
+  '((t :inherit marginalia-key))
+  "Face used to highlight package archives in `marginalia-mode'."
+  :group 'marginalia)
+
 (defface marginalia-size
   '((t :inherit font-lock-constant-face :weight normal))
   "Face used to highlight sizes in `marginalia-mode'."
@@ -285,7 +290,15 @@ This hash table is needed to speed up 
`marginalia-annotate-command-binding'.")
                         (if-let (built-in (assq pkg package--builtins))
                             (package--from-builtin built-in)
                           (car (alist-get pkg package-archive-contents))))))
-    (marginalia--documentation (package-desc-summary desc))))
+    (concat
+     (marginalia--align 8 ;; archive
+                        marginalia-separator-width
+                        marginalia-documentation-width)
+     (propertize (format "%-8s" (package-desc-archive desc))
+                 'face 'marginalia-archive)
+     (marginalia--separator)
+     (propertize (package-desc-summary desc)
+                 'face 'marginalia-documentation))))
 
 (defun marginalia-annotate-customize-group (cand)
   "Annotate customization group CAND with its documentation string."