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

Display package installation info in *spacemacs*

This commit is contained in:
syl20bnr 2014-09-06 04:54:44 -04:00
parent c1b9dabd0c
commit 1f65627781
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
contribsys.el
View File

@ -84,16 +84,23 @@ extension.
"Install the packages all the packages if there are not currently installed."
(interactive)
(let* ((pkg-list (ht-keys spacemacs-all-packages))
(not-installed (remove-if 'package-installed-p pkg-list)))
(not-installed (remove-if 'package-installed-p pkg-list))
(not-installed-count (length not-installed)))
;; installation
(if not-installed
(if (y-or-n-p (format
"there are %d packages to be installed. install them? "
(length not-installed)))
(progn (package-refresh-contents)
(dolist (pkg pkg-list)
(when (not (package-installed-p pkg))
(package-install pkg))))))))
(progn
(append-to-spacemacs-buf (format "Found %s new package(s) to install..."
not-installed-count))
(package-refresh-contents)
(setq installed-count 0)
(dolist (pkg not-installed)
(when (not (package-installed-p pkg))
(package-install pkg))
(setq installed-count (1+ installed-count))
(replace-last-line-of-spacemacs-buf
(format "--> %s/%s packages installed"
installed-count not-installed-count))
(redisplay))))))
(defun contribsys/initialize-packages ()
"Initialize all the declared packages."