awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix CLI error not including straight output

Browse Source
This commit is contained in:
Henrik Lissner
2020-08-27 03:10:43 -04:00
parent 6e6f2ddca3
commit 098f10306d
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-cli.el
View File

@ -256,14 +256,15 @@ BODY will be run when this dispatcher is called."
(print! (error "There was an unexpected error"))
(print-group!
(print! "%s %s" (bold "Message:") (get error 'error-message))
(print! "%s %s" (bold "Data:") (cons error data))
(print! "%s %S" (bold "Data:") (cons error data))
(when (and (bound-and-true-p straight-process-buffer)
(string-match-p (regexp-quote straight-process-buffer)
(get error 'error-message)))
(ignore-errors
(string-match-p "straight" (car data))))
(print! (bold "Straight output:"))
(let ((output (straight--process-get-output)))
(appendq! data (list (cons "STRAIGHT" output)))
(print-group! (print! "%s" output))))
(print-group!
(print! "%s" (string-trim-right output)))))
(when backtrace
(print! (bold "Backtrace:"))
(print-group!