tweak(straight): refactor and rename straight cache cleaning function

core/me-bootstrap.el

@@ -52,8 +52,9 @@
  use-package-expand-minimally (not minemacs-debug))
 
 ;;;###autoload
-(defun +straight-compile-prune-cache ()
+(defun +straight-prune-build-cache ()
   (let* ((straight-dir (file-name-concat straight-base-dir "straight/"))
+         (default-directory straight-dir)
          (builds (seq-filter
                   (lambda (name)
                     (not (member name (list straight-build-dir
@@ -62,10 +63,9 @@
                                             "repos"))))
                   (directory-files straight-dir nil "[^.][^.]?$"))))
     (dolist (file builds)
-      (let ((default-directory straight-dir))
-        (if (file-directory-p file)
-            (delete-directory file 'recursive 'trash)
-          (delete-file file 'trash))))))
+      (if (file-directory-p file)
+          (delete-directory file 'recursive 'trash)
+        (delete-file file 'trash)))))
 
 
 (provide 'me-bootstrap)

core/me-loaddefs.el

@@ -683,7 +683,7 @@ Unmount eCryptfs' private directory." t)
 
 ;;; Generated autoloads from me-bootstrap.el
 
-(autoload '+straight-compile-prune-cache "me-bootstrap")
+(autoload '+straight-prune-build-cache "me-bootstrap")
 
 
 ;;; Generated autoloads from ../modules/extras/me-cape-super-capf.el

init.el

@@ -264,7 +264,7 @@
    (+info! "Trying to clean outdated native compile cache")
    ;; Delete outdated natively compiled files when Emacs become idle
    (+shutup! (native-compile-prune-cache)))
- (+shutup! (+straight-compile-prune-cache)))
+ (+shutup! (+straight-prune-build-cache)))
 
 
 (+log! "Loaded init.el")