emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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))) (let ((default-directory (straight--repos-dir repo)))
(if (not (file-directory-p ".git")) (if (not (file-directory-p ".git"))
(ignore (print! (warn "repos/%s is not a git repo, skipping" repo))) (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" "reset" "--hard")
(straight--call "git" "clean" "--ffd") (straight--call "git" "clean" "--ffd")
(straight--call "git" "replace" "--graft" "HEAD") (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))))) (delq nil (mapcar #'doom--packages-regraft-repo repos)))))
(defun doom--packages-purge-repo (repo) (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))) (let ((repo-dir (straight--repos-dir repo)))
(delete-directory repo-dir 'recursive) (delete-directory repo-dir 'recursive)
(ignore-errors (ignore-errors