diff options
Diffstat (limited to 'helm-elisp-package.el')
| -rw-r--r-- | helm-elisp-package.el | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/helm-elisp-package.el b/helm-elisp-package.el index 67f9f5fe..a8305a00 100644 --- a/helm-elisp-package.el +++ b/helm-elisp-package.el @@ -40,7 +40,7 @@ (let ((id (get-text-property 0 'tabulated-list-id candidate))) (describe-package (if (fboundp 'package-desc-name) (package-desc-name id) - (car id))))) + (car id))))) (defun helm-el-package-install (_candidate) (cl-loop with mkd = (helm-marked-candidates) @@ -49,18 +49,18 @@ do (package-install (if (fboundp 'package-desc-name) (package-desc-name id) - (car id))) + (car id))) and collect (if (fboundp 'package-desc-full-name) id - (car id)) into installed-list - finally do (if (fboundp 'package-desc-full-name) - (message (format "%d packages installed:\n(%s)" - (length installed-list) - (mapconcat #'package-desc-full-name - installed-list ", "))) - (message (format "%d packages installed:\n(%s)" - (length installed-list) - (mapconcat 'symbol-name installed-list ", ")))))) + (car id)) into installed-list + finally do (if (fboundp 'package-desc-full-name) + (message (format "%d packages installed:\n(%s)" + (length installed-list) + (mapconcat #'package-desc-full-name + installed-list ", "))) + (message (format "%d packages installed:\n(%s)" + (length installed-list) + (mapconcat 'symbol-name installed-list ", ")))))) (defun helm-el-package-uninstall (_candidate) (cl-loop with mkd = (helm-marked-candidates) @@ -72,38 +72,38 @@ (if (fboundp 'package-desc-full-name) ;; emacs 24.4 (package-delete id) - ;; emacs 24.3 - (package-delete (symbol-name (car id)) - (package-version-join (cdr id))))) + ;; emacs 24.3 + (package-delete (symbol-name (car id)) + (package-version-join (cdr id))))) (error (message (cadr err)))) and collect (if (fboundp 'package-desc-full-name) id - (cons (symbol-name (car id)) - (package-version-join (cdr id)))) into delete-list - finally do (if (fboundp 'package-desc-full-name) - ;; emacs 24.4 - (message (format "%d packages deleted:\n(%s)" - (length delete-list) - (mapconcat #'package-desc-full-name - delete-list ", "))) - ;; emacs 24.3 - (message (format "%d packages deleted:\n(%s)" - (length delete-list) - (mapconcat (lambda (x) - (concat (car x) "-" (cdr x))) - delete-list ", "))) - ;; emacs 24.3 doesn't update - ;; its `package-alist' after deleting. - (cl-loop for p in package-alist - when (assq (symbol-name (car p)) delete-list) - do (setq package-alist (delete p package-alist)))))) + (cons (symbol-name (car id)) + (package-version-join (cdr id)))) into delete-list + finally do (if (fboundp 'package-desc-full-name) + ;; emacs 24.4 + (message (format "%d packages deleted:\n(%s)" + (length delete-list) + (mapconcat #'package-desc-full-name + delete-list ", "))) + ;; emacs 24.3 + (message (format "%d packages deleted:\n(%s)" + (length delete-list) + (mapconcat (lambda (x) + (concat (car x) "-" (cdr x))) + delete-list ", "))) + ;; emacs 24.3 doesn't update + ;; its `package-alist' after deleting. + (cl-loop for p in package-alist + when (assq (symbol-name (car p)) delete-list) + do (setq package-alist (delete p package-alist)))))) (defun helm-el-package--transformer (candidates _source) (cl-loop for c in candidates for id = (get-text-property 0 'tabulated-list-id c) for installed-p = (assq (if (fboundp 'package-desc-name) (package-desc-name id) - (car id)) + (car id)) package-alist) for cand = (cons c (car (split-string c))) when (or (and installed-p |