[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
First attempt at package-update-all for package.el
From: |
Donald Curtis |
Subject: |
First attempt at package-update-all for package.el |
Date: |
Mon, 12 Sep 2011 11:32:43 -0500 |
I know there is a feature freeze but one of the most requested features (myself
included) seems to be an "update" for packages in package.el.
https://gist.github.com/1211655
(defun package-update-all ()
"Update all packages"
(interactive)
(dolist (elt package-alist)
(let* ((name (car elt))
(file-name (symbol-name name))
(available-pkg (assq name package-archive-contents))
(available-version (and available-pkg
(package-desc-vers (cdr available-pkg))))
(current-version (package-desc-vers (cdr elt)))
)
(when (and available-version
(version-list-< current-version available-version))
(message "Updating to: %s - %s" file-name
(package-version-join available-version))
(package-install name)
(package-delete file-name (package-version-join current-version))))))
At least this is available if anyone wants to just put it in their own init
file. It's probably not completely right as I am very new to programming this
lisp stuff.
Thanks,
Donald
- First attempt at package-update-all for package.el,
Donald Curtis <=