[nongnu] elpa/helm afc7cd8b40 3/9: Add a FCT fn for upgrade and delete helm-packages sources

[ELPA Syncer]

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

    Add a FCT fn for upgrade and delete helm-packages sources
---
 helm-packages.el | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/helm-packages.el b/helm-packages.el
index 258f90f0c9..6b9f6f0dba 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -178,6 +178,14 @@ Arg PACKAGES is a list of strings."
                                 ""))
            collect (cons disp c)))
 
+(defun helm-packages-transformer-1 (candidates _source)
+  "Transformer function for `helm-packages' upgrade and delete sources."
+  (cl-loop for c in candidates
+           collect (cons (propertize
+                          (symbol-name c)
+                          'face 'font-lock-keyword-face)
+                         c)))
+
 (defun helm-packages-quit-an-find-file (source)
   (let* ((sel (helm-get-selection nil nil source))
          (pkg (package-get-descriptor (intern sel))))
@@ -212,24 +220,12 @@ packages no more availables."
                     (helm-make-source "Availables for upgrade" 
'helm-packages-class
                       :init (lambda ()
                               (helm-init-candidates-in-buffer 'global 
upgrades))
-                      :filtered-candidate-transformer
-                      (lambda (candidates _source)
-                        (cl-loop for c in candidates
-                                 collect (cons (propertize
-                                                (symbol-name c)
-                                                'face 'font-lock-keyword-face)
-                                               c)))
+                      :filtered-candidate-transformer 
#'helm-packages-transformer-1
                       :action '(("Upgrade package(s)" . 
helm-packages-upgrade)))
                     (helm-make-source "Packages to delete" 'helm-packages-class
                       :init (lambda ()
                               (helm-init-candidates-in-buffer 'global 
removables))
-                      :filtered-candidate-transformer
-                      (lambda (candidates _source)
-                        (cl-loop for c in candidates
-                                 collect (cons (propertize
-                                                (symbol-name c)
-                                                'face 'font-lock-keyword-face)
-                                               c)))
+                      :filtered-candidate-transformer 
#'helm-packages-transformer-1
                       :action '(("Delete package(s)" . helm-packages-delete)))
                     (helm-make-source "Installed packages" 'helm-packages-class
                       :init (lambda ()