[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 62962e94f2 2/2: Compute lgst archive name in transfor
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 62962e94f2 2/2: Compute lgst archive name in transformer (#2691) |
Date: |
Thu, 5 Dec 2024 01:00:13 -0500 (EST) |
branch: elpa/helm
commit 62962e94f2cfed95d52bdd23e08bede769fa52e3
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Compute lgst archive name in transformer (#2691)
---
helm-packages.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 1194d4cd51..be01b3c140 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -207,7 +207,9 @@ Arg PACKAGES is a list of strings."
;;
(defun helm-packages-transformer (candidates _source)
"Transformer function for `helm-packages'."
- (cl-loop for c in candidates
+ (cl-loop with lgst_arch = (cl-loop for (arch . _) in package-archives
+ maximize (length arch))
+ for c in candidates
for sym = (intern-soft c)
for archive = (assq sym package-archive-contents)
for id = (package-get-descriptor sym)
@@ -251,7 +253,7 @@ Arg PACKAGES is a list of strings."
;; Package provider.
(or provider "")
;; Separator.
- (helm-make-separator provider 10)
+ (helm-make-separator provider lgst_arch)
;; Package version.
(or version "")
;; Separator.