tweak(straight): cleanup old byte compiled Elisp

core/me-bootstrap.el

@@ -51,6 +51,22 @@
  ;; Make the expanded code as minimal as possible, do not try to catch errors
  use-package-expand-minimally (not minemacs-debug))
 
+;;;###autoload
+(defun +straight-compile-prune-cache ()
+  (let* ((straight-dir (file-name-concat straight-base-dir "straight/"))
+         (builds (seq-filter
+                  (lambda (name)
+                    (not (member name (list straight-build-dir
+                                            (concat straight-build-dir "-cache.el")
+                                            "versions"
+                                            "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))))))
+
 
 (provide 'me-bootstrap)
 

core/me-loaddefs.el

@@ -680,6 +680,11 @@ Unmount eCryptfs' private directory." t)
 
 (register-definition-prefixes "me-backports-29" '("loaddefs-generate" "messages-buffer-name" "native-compile-prune-cache" "scratch-buffer" "setopt" "with-memoization"))
 
+
+;;; Generated autoloads from me-bootstrap.el
+
+(autoload '+straight-compile-prune-cache "me-bootstrap")
+
 
 ;;; Generated autoloads from ../modules/extras/me-cape-super-capf.el
 

init.el

@@ -259,10 +259,13 @@
     (when (file-exists-p user-config)
       (+load user-config))))
 
-(+lazy-when! (featurep 'native-compile)
-  (+info! "Trying to clean outdated native compile cache")
-  ;; Delete outdated natively compiled files when Emacs become idle
-  (+shutup! (native-compile-prune-cache)))
+(+lazy!
+ (when (featurep 'native-compile)
+   (+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)))
+
 
 (+log! "Loaded init.el")