awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

core/autoload/packages: refactor

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-16 00:49:25 +02:00
parent 1ff56b33e1
commit ac3e63715d
1 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
core/autoload/packages.el
View File

@ -170,18 +170,14 @@ appropriate."
(unless (package-installed-p name)
(user-error "%s isn't installed" name))
(when (doom-package-outdated-p name)
(let ((inhibit-message (not doom-debug-mode))
quelpa-modified-p)
(let ((inhibit-message (not doom-debug-mode)))
(pcase (doom-package-backend name)
('quelpa
(let ((quelpa-upgrade-p t))
(quelpa (assq name quelpa-cache))
(setq quelpa-modified-p t)))
(quelpa (assq name quelpa-cache))))
('elpa
(doom-delete-package name t)
(doom-install-package name)))
(when quelpa-modified-p
(quelpa-save-cache)))
(doom-install-package name))))
(version-list-=
(package-desc-version (cadr (assq name package-alist)))
(package-desc-version (cadr (assq name package-archive-contents))))))
@ -191,9 +187,8 @@ appropriate."
(doom-initialize)
(unless (package-installed-p name)
(user-error "%s isn't installed" name))
(let ((desc (cadr (assq name package-alist)))
(inhibit-message t))
(package-delete desc force-p))
(let ((inhibit-message (not doom-debug-mode)))
(package-delete (cadr (assq name package-alist)) force-p))
(not (package-installed-p name)))