chore(packages): use straight-x-clean-unused-repos function from straight

This commit is contained in:
2020-10-15 15:25:27 +01:00
parent 885f9abb76
commit 22691c846a

View File

@@ -27,13 +27,7 @@
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
;; https://github.com/raxod502/straight.el/issues/49#issuecomment-395979478
(defun straight-x-clean-unused-repos ()
(interactive)
(dolist (repo (straight--directory-files (straight--repos-dir)))
(unless (or (straight--checkhash repo straight--repo-cache)
(not (y-or-n-p (format "Delete repository %S?" repo))))
(delete-directory (straight--repos-dir repo) 'recursive 'trash))))
(autoload 'straight-x-clean-unused-repos "straight-x" nil t)
(straight-use-package 'use-package)