From 25962a6beb6993074edad45e62da7d6065146ba1 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 11 Feb 2017 06:00:27 -0500 Subject: [PATCH] doom-refresh-packages: caches refresh time in file --- core/autoload/packages.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index 531802879..c189c56be 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -8,10 +8,15 @@ (defun doom-refresh-packages () "Refresh ELPA packages." (doom-initialize) - (when (or (not doom-packages-last-refresh) - (> (nth 1 (time-since doom-packages-last-refresh)) 3600)) - (package-refresh-contents) - (setq doom-packages-last-refresh (current-time)))) + (let ((refresh-cache (f-expand "last-pkg-refresh" doom-cache-dir))) + (when (and (not doom-packages-last-refresh) + (f-exists-p refresh-cache)) + (setq doom-packages-last-refresh (read (f-read refresh-cache)))) + (when (or (not doom-packages-last-refresh) + (> (nth 1 (time-since doom-packages-last-refresh)) 600)) + (package-refresh-contents) + (setq doom-packages-last-refresh (current-time)) + (f-write (pp-to-string doom-packages-last-refresh) 'utf-8 refresh-cache)))) ;;;###autoload (defun doom-package-backend (name)