From 54edffc4bb1487f3516459d1cf7730050cf2ee66 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 29 Jul 2019 21:29:43 +0200 Subject: [PATCH] cli/packages: emit a little more debug info To mark the start of purging/regrafting procedures. --- core/cli/packages.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/cli/packages.el b/core/cli/packages.el index 9b7e7305f..a0a190afe 100644 --- a/core/cli/packages.el +++ b/core/cli/packages.el @@ -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