Fix package-refresh-contents loop bug in package management

This commit is contained in:
Henrik Lissner 2017-04-04 12:29:34 -04:00
parent a0ae976555
commit e1518e2d27

View file

@ -1,15 +1,21 @@
;;; packages.el
(provide 'doom-lib-packages)
(defvar doom--last-refresh nil)
;;;###autoload
(defun doom-refresh-packages ()
"Refresh ELPA packages."
(doom-initialize)
(let ((last-refresh (persistent-soft-fetch 'last-pkg-refresh "emacs")))
(when (or (not last-refresh)
(> (nth 1 (time-since last-refresh)) 600))
(when last-refresh
(setq doom--last-refresh last-refresh)))
(when (or (not doom--last-refresh)
(> (nth 1 (time-since doom--last-refresh)) 600))
(package-refresh-contents)
(persistent-soft-store 'last-pkg-refresh (current-time) "emacs"))))
(persistent-soft-store
'last-pkg-refresh (setq doom--last-refresh (current-time))
"emacs")))
;;;###autoload
(defun doom-package-backend (name)