Use some clever caching to speed up init

Partially addresses #9.
radian-software · Jan 22, 2017 · ded8359 · ded8359
1 parent ac080a5
commit ded8359
Showing 1 changed file with 22 additions and 14 deletions.
diff --git a/straight.el b/straight.el
@@ -338,20 +338,9 @@
   (when after-init-time
     (straight--save-build-cache)))
 
-(defun straight--package-might-be-modified-p (recipe)
-  (straight--with-plist recipe
-      (package local-repo)
-    (or (not (file-exists-p (straight--file "build" package)))
-        (let ((mtime (nth 0 (gethash package straight--build-cache))))
-          (or (not mtime)
-              (with-temp-buffer
-                (let ((default-directory (straight--dir "repos" local-repo)))
-                  (call-process
-                   "find" nil '(t t) nil
-                   "." "-name" ".git" "-prune" "-o" "-newermt" mtime "-print")
-                  (> (buffer-size) 0))))))))
-
-(defun straight--packages-might-be-modified-p ()
+(defvar straight--cached-packages-might-be-modified-p :unknown)
+
+(defun straight--cached-packages-might-be-modified-p ()
   (let ((repos nil)
         (args nil))
     (maphash
@@ -374,6 +363,25 @@
         (apply 'call-process "find" nil '(t t) nil args)
         (> (buffer-size) 0)))))
 
+(defun straight--package-might-be-modified-p (recipe)
+  (straight--with-plist recipe
+      (package local-repo)
+    (when (equal straight--cached-packages-might-be-modified-p
+                 :unknown)
+      (setq straight--cached-packages-might-be-modified-p
+            (straight--cached-packages-might-be-modified-p)))
+    (when (or straight--cached-packages-might-be-modified-p
+              (not (gethash package straight--build-cache)))
+      (or (not (file-exists-p (straight--file "build" package)))
+          (let ((mtime (nth 0 (gethash package straight--build-cache))))
+            (or (not mtime)
+                (with-temp-buffer
+                  (let ((default-directory (straight--dir "repos" local-repo)))
+                    (call-process
+                     "find" nil '(t t) nil
+                     "." "-name" ".git" "-prune" "-o" "-newermt" mtime "-print")
+                    (> (buffer-size) 0)))))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; Building packages