TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: add optional argument to configuration-layer/update-packages 

So if called using the universal argument or with a parameter yes is
assumed to the question to update packages.  Useful for calling Emacs
in batch mode to update Spacemacs.
This commit is contained in:
Travis B. Hartwell 2015-06-27 20:33:48 -06:00 committed by syl20bnr
parent 1bb120ab00
commit e236d5a280
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/core-configuration-layer.el
View File

@ -589,9 +589,9 @@ This function also processed recursively the package dependencies."
(version<= (configuration-layer//get-latest-package-version-string x)
installed-ver))))))
(defun configuration-layer/update-packages ()
"Upgrade elpa packages"
(interactive)
(defun configuration-layer/update-packages (&optional always-update)
"Upgrade elpa packages. If called with a prefix argument ALWAYS-UPDATE, assume yes to update."
(interactive "P")
(spacemacs-buffer/insert-page-break)
(spacemacs-buffer/append
"\nUpdating Spacemacs... (for now only ELPA packages are updated)\n")
@ -609,9 +609,10 @@ This function also processed recursively the package dependencies."
(upgraded-count 0)
(update-packages-alist))
(if (> upgrade-count 0)
(if (not (yes-or-no-p (format (concat "%s package(s) to update, "
"do you want to continue ? ")
upgrade-count)))
(if (and (not always-update)
(not (yes-or-no-p (format (concat "%s package(s) to update, "
"do you want to continue ? ")
upgrade-count))))
(spacemacs-buffer/append
"Packages update has been cancelled.\n")
;; backup the package directory and construct an alist