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
(dolist (pkg packages)
(condition-case ex
(ansi-message! (cond ((package-installed-p (car pkg))
(dark (white "[%%s] Skipped %%s (already installed)")))
((doom-install-package (car pkg) (cdr pkg))
(green "[%%s] Installed %%s"))
(t
(red "[%%s] Failed to install %%s")))
(pcase (doom-package-backend (car pkg))
('quelpa "QUELPA")
('elpa "ELPA"))
(concat (symbol-name (car pkg))
(when (plist-member (cdr pkg) :pin)
(format " [pinned: %s]" (plist-get (cdr pkg) :pin)))))
(ansi-message!
(cond ((package-installed-p (car pkg))
(dark (white "Skipped %%%%s (already installed)")))
((doom-install-package (car pkg) (cdr pkg))
(green "Installed %%s (%%s)"))
(t
(red "Failed to install %%s (%%s)")))
(concat (symbol-name (car pkg))
(when (plist-member (cdr pkg) :pin)
(format " [pinned: %s]" (plist-get (cdr pkg) :pin))))
(pcase (doom-package-backend (car pkg))
('quelpa "QUELPA")
('elpa "ELPA")))
('error
(ansi-message! (red "Error (%s): %s" (car pkg) ex)))))