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

Refactor doom-get-outdated-packages

Browse source 
May address #1235
This commit is contained in:
Henrik Lissner 2019-03-11 18:46:52 -04:00
parent 0cfab2e507
commit 867f94e23a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/autoload/packages.el
View file

@ -327,9 +327,9 @@ Used by `doom-packages-update'."
;; The bottleneck in this process is quelpa's version checks, so check them ;; The bottleneck in this process is quelpa's version checks, so check them
;; asynchronously. ;; asynchronously.
(cl-loop with partitions = (/ (length .quelpa) 4) (cl-loop with partitions = (/ (length .quelpa) 4)
for pkgs in (seq-partition .quelpa partitions) for package-list in (seq-partition .quelpa partitions)
do (doom-log "New thread for: %s" pkgs) do (doom-log "New thread for: %s" package-list)
and collect collect
(async-start (async-start
`(lambda () `(lambda ()
(let ((gc-cons-threshold ,doom-gc-cons-upper-limit) (let ((gc-cons-threshold ,doom-gc-cons-upper-limit)
@ -343,18 +343,17 @@ Used by `doom-packages-update'."
(doom-modules ',doom-modules) (doom-modules ',doom-modules)
(quelpa-cache ',quelpa-cache) (quelpa-cache ',quelpa-cache)
(user-emacs-directory ,user-emacs-directory) (user-emacs-directory ,user-emacs-directory)
(packages ',pkgs)
doom-private-dir) doom-private-dir)
(load ,(expand-file-name "core.el" doom-core-dir)) (load ,(expand-file-name "core.el" doom-core-dir))
(load ,(expand-file-name "autoload/packages.el" doom-core-dir)) (load ,(expand-file-name "autoload/packages.el" doom-core-dir))
(require 'package) (require 'package)
(require 'quelpa) (require 'quelpa)
(cl-delete-if-not #'doom-package-outdated-p packages)))) (cl-remove-if-not #'doom-package-outdated-p ',package-list))))
into futures into futures
finally return finally return
(delq nil (append (delq nil (mapcar #'doom-package-outdated-p .elpa))
(append (mapcar #'doom-package-outdated-p .elpa) (mapcan #'async-get futures)
(mapcan #'async-get futures)))))) nil))))
;;;###autoload ;;;###autoload
(defun doom-get-orphaned-packages () (defun doom-get-orphaned-packages ()