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

tweak(cli): only display the last, failed straight command

Browse Source 
When displaying an package error.
This commit is contained in:
Henrik Lissner
2025-09-22 23:27:08 -04:00
parent e297796387
commit 7e711d53ca
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/doom-cli.el
View File

@@ -974,21 +974,19 @@ considered as well."
(string-match-p (regexp-quote straight-process-buffer)
(error-message-string data)))
(with-current-buffer (straight--process-buffer)
(split-string (buffer-string) "\n" t))))
(save-excursion
(goto-char (point-max))
(buffer-substring (if (re-search-backward "^\\[Return code: 0\\]$" nil t)
(point-at-bol 2)
(point-min))
(point-max))))))
(error-file (doom-cli--output-file 'error context)))
(cond
(straight-error
(print! (error "The package manager threw an error"))
(print! (error "Last %d lines of straight's error log:")
doom-cli-log-straight-error-lines)
(print-group!
(print!
"%s" (string-join
(seq-subseq straight-error
(max 0 (- (length straight-error)
doom-cli-log-straight-error-lines))
(length straight-error))
"\n")))
(print-group! (print! "%s" straight-error))
(print! (warn "Wrote extended straight log to %s")
(path (let ((coding-system-for-write 'utf-8-auto))
(with-file-modes #o600