[elpa] externals/marginalia 65da400 055/241: marginalia-annotate-package: show package version

[Stefan Monnier]

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

    marginalia-annotate-package: show package version
    
    I don't find it very useful, but it is consistent with list-packages and for
    melpa packages it shows the date. If possible I would prefer to rather 
print the
    date of the last update, but I don't think that information exists.
---
 marginalia.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 65c8552..5ca447f 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -64,6 +64,11 @@
   "Face used to highlight dates in `marginalia-mode'."
   :group 'marginalia)
 
+(defface marginalia-version
+  '((t :inherit marginalia-size))
+  "Face used to highlight package version in `marginalia-mode'."
+  :group 'marginalia)
+
 (defface marginalia-archive
   '((t :inherit marginalia-key))
   "Face used to highlight package archives in `marginalia-mode'."
@@ -291,9 +296,14 @@ This hash table is needed to speed up 
`marginalia-annotate-command-binding'.")
                             (package--from-builtin built-in)
                           (car (alist-get pkg package-archive-contents))))))
     (concat
-     (marginalia--align 8 ;; archive
+     (marginalia--align 16 ;; version
+                        marginalia-separator-width
+                        8 ;; archive
                         marginalia-separator-width
                         marginalia-documentation-width)
+     (propertize (format "%-16s" (package-version-join (package-desc-version 
desc)))
+                 'face 'marginalia-version)
+     (marginalia--separator)
      (propertize (format "%-8s" (package-desc-archive desc))
                  'face 'marginalia-archive)
      (marginalia--separator)