awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-08 15:23:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

cli/packages: emit a little more debug info

Browse Source 
To mark the start of purging/regrafting procedures.
This commit is contained in:
Henrik Lissner
2019-07-29 21:29:43 +02:00
parent 40eb9cf17e
commit 54edffc4bb
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
core/cli/packages.el
View File

@@ -337,6 +337,7 @@ a list of packages that will be updated."
(let ((default-directory (straight--repos-dir repo)))
(if (not (file-directory-p ".git"))
(ignore (print! (warn "repos/%s is not a git repo, skipping" repo)))
(print! (debug "Regrafting repos/%s..." repo))
(straight--call "git" "reset" "--hard")
(straight--call "git" "clean" "--ffd")
(straight--call "git" "replace" "--graft" "HEAD")
@@ -365,7 +366,7 @@ a list of packages that will be updated."
(delq nil (mapcar #'doom--packages-regraft-repo repos)))))
(defun doom--packages-purge-repo (repo)
(print! (start "Purging repos/%s..." repo))
(print! (debug "Purging repos/%s..." repo))
(let ((repo-dir (straight--repos-dir repo)))
(delete-directory repo-dir 'recursive)
(ignore-errors