emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Print progress to same line on 'doom update'

Browse source 
Experimental.
This commit is contained in:
Henrik Lissner 2019-11-24 00:49:13 -05:00
parent 3766dfeba9
commit d37ebee2f8
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
core/cli/packages.el
View file

@ -147,16 +147,16 @@ declaration) or dependency thereof that hasn't already been."
(let* ((default-directory (straight--repos-dir local-repo)) (let* ((default-directory (straight--repos-dir local-repo))
(commit (straight-vc-get-commit type local-repo))) (commit (straight-vc-get-commit type local-repo)))
(if (not (straight-vc-fetch-from-remote recipe)) (if (not (straight-vc-fetch-from-remote recipe))
(print! (warn "(%d/%d) Failed to fetch %s" i total package)) (print! (warn "\033[K(%d/%d) Failed to fetch %s" i total package))
(let ((output (straight--process-get-output))) (let ((output (straight--process-get-output)))
(straight-merge-package package) (straight-merge-package package)
(let ((newcommit (straight-vc-get-commit type local-repo))) (let ((newcommit (straight-vc-get-commit type local-repo)))
(if (string= commit newcommit) (if (string= commit newcommit)
(print! (start "(%d/%d) %s is up-to-date") i total package) (print! (start "\033[K(%d/%d) %s is up-to-date\033[1A") i total package)
(ignore-errors (ignore-errors
(delete-directory (straight--build-dir package) 'recursive)) (delete-directory (straight--build-dir package) 'recursive))
(puthash package t straight--packages-to-rebuild) (puthash package t straight--packages-to-rebuild)
(print! (info "(%d/%d) Updating %s...") i total package) (print! (info "\033[K(%d/%d) Updating %s...") i total package)
(unless (string-empty-p output) (unless (string-empty-p output)
(print-group! (print-group!
(print! (info "%s") output) (print! (info "%s") output)
@ -176,6 +176,7 @@ declaration) or dependency thereof that hasn't already been."
(print! (error "%s" e)) (print! (error "%s" e))
(print-group! (print! (info "%s" (straight--process-get-output))))) (print-group! (print! (info "%s" (straight--process-get-output)))))
(push package errors))))) (push package errors)))))
(princ "\033[K")
(when errors (when errors
(print! (error "There were %d errors, the offending packages are: %s") (print! (error "There were %d errors, the offending packages are: %s")
(length errors) (string-join errors ", "))) (length errors) (string-join errors ", ")))