emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

doom/packages-install: fix format error on skipped packages

Browse source
This commit is contained in:
Henrik Lissner 2017-04-12 12:06:19 -04:00
parent 8e56c6c6a0
commit 9c647ec636
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/autoload/packages.el
View file

@ -226,18 +226,19 @@ appropriate."
(t (t
(dolist (pkg packages) (dolist (pkg packages)
(condition-case ex (condition-case ex
(ansi-message! (cond ((package-installed-p (car pkg)) (ansi-message!
(dark (white "[%%s] Skipped %%s (already installed)"))) (cond ((package-installed-p (car pkg))
((doom-install-package (car pkg) (cdr pkg)) (dark (white "Skipped %%%%s (already installed)")))
(green "[%%s] Installed %%s")) ((doom-install-package (car pkg) (cdr pkg))
(t (green "Installed %%s (%%s)"))
(red "[%%s] Failed to install %%s"))) (t
(pcase (doom-package-backend (car pkg)) (red "Failed to install %%s (%%s)")))
('quelpa "QUELPA") (concat (symbol-name (car pkg))
('elpa "ELPA")) (when (plist-member (cdr pkg) :pin)
(concat (symbol-name (car pkg)) (format " [pinned: %s]" (plist-get (cdr pkg) :pin))))
(when (plist-member (cdr pkg) :pin) (pcase (doom-package-backend (car pkg))
(format " [pinned: %s]" (plist-get (cdr pkg) :pin))))) ('quelpa "QUELPA")
('elpa "ELPA")))
('error ('error
(ansi-message! (red "Error (%s): %s" (car pkg) ex))))) (ansi-message! (red "Error (%s): %s" (car pkg) ex)))))