awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-18 16:06:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Emit fetch output when updating recipe repos

Browse Source
This commit is contained in:
Henrik Lissner
2020-05-16 17:31:29 -04:00
parent 375faedb1b
commit 6241ba2faa
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
core/cli/packages.el
View File

@@ -108,16 +108,18 @@ list remains lean."
(recipe package type local-repo) (recipe package type local-repo)
(let ((esc (unless doom-debug-mode "\033[1A")) (let ((esc (unless doom-debug-mode "\033[1A"))
(ref (straight-vc-get-commit type local-repo)) (ref (straight-vc-get-commit type local-repo))
newref) newref output)
(print! (start "\033[KUpdating recipes for %s...%s") package esc) (print! (start "\033[KUpdating recipes for %s...%s") package esc)
(when (straight-vc-fetch-from-remote recipe) (when (straight-vc-fetch-from-remote recipe)
(setq output (straight--process-get-output)) (setq output (straight--process-get-output))
(straight-merge-package package) (straight-merge-package package)
(or (equal ref (setq newref (straight-vc-get-commit type local-repo))) (unless (equal ref (setq newref (straight-vc-get-commit type local-repo)))
(print! (success "\033[K%s updated (%s -> %s)") (print! (success "\033[K%s updated (%s -> %s)")
package package
(doom--abbrev-commit ref) (doom--abbrev-commit ref)
(doom--abbrev-commit newref))))))) (doom--abbrev-commit newref))
(unless (string-empty-p output)
(print-group! (print! (info "%s" output)))))))))
(setq straight--recipe-lookup-cache (make-hash-table :test #'eq) (setq straight--recipe-lookup-cache (make-hash-table :test #'eq)
doom--cli-updated-recipes t))) doom--cli-updated-recipes t)))