emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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!