emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm 4f45e9f352 7/7: Add a brief desc of built-in packages


From: ELPA Syncer
Subject: [nongnu] elpa/helm 4f45e9f352 7/7: Add a brief desc of built-in packages for finder
Date: Tue, 20 Aug 2024 10:00:40 -0400 (EDT)

branch: elpa/helm
commit 4f45e9f3526bb8c94c62f3f9c906d84622d52b7e
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Add a brief desc of built-in packages for finder
---
 helm-packages.el | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/helm-packages.el b/helm-packages.el
index 0751fdd26b..cc0a9464bd 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -211,10 +211,22 @@ Arg PACKAGES is a list of strings."
            for sym = (intern-soft c)
            for archive = (assq sym package-archive-contents)
            for id = (package-get-descriptor sym)
-           for provider = (and archive (package-desc-archive (cadr archive)))
-           for status = (and id (package-desc-status id))
-           for version = (and id (mapconcat #'number-to-string 
(package-desc-version id) "."))
-           for description = (and id (package-desc-summary id))
+           for provider = (if archive
+                              (package-desc-archive (cadr archive))
+                            (and (assq sym package--builtins) "emacs"))
+           for status = (if id
+                            (package-desc-status id)
+                          (and (assq sym package--builtins) "Built-in"))
+           for version = (if id
+                             (mapconcat #'number-to-string 
(package-desc-version id) ".")
+                           (or (helm-aand (assq sym package--builtins)
+                                          (aref (cdr it) 0)
+                                          (package-version-join it))
+                               "---"))
+           for description = (if id
+                                 (package-desc-summary id)
+                               (helm-aand (assq sym package--builtins)
+                                          (aref (cdr it) 2)))
            for disp = (format "%s%s%s%s%s%s%s%s%s"
                               ;; Package name.
                               (propertize



reply via email to

[Prev in Thread] Current Thread [Next in Thread]