f60f576048
Fuco1/smartparens@63695c6 -> Fuco1/smartparens@25f4d6d bbatsov/projectile@1528ed4 -> bbatsov/projectile@513228f domtronn/all-the-icons.el@a8c8417 -> domtronn/all-the-icons.el@7a12258 emacs-straight/so-long@a5d445d -> emacs-straight/so-long@1da43ed jscheid/dtrt-indent@37529fc -> jscheid/dtrt-indent@9714f2c justbur/emacs-which-key@c632dbf -> justbur/emacs-which-key@5fb3030 raxod502/straight.el@0f9b828 -> raxod502/straight.el@253d7db Fixes #4947 (needed raxod502/straight.el@0831f6b) Also includes fixes due to straight changing its logging API.
70 lines
2.9 KiB
EmacsLisp
70 lines
2.9 KiB
EmacsLisp
;;; core/cli/debugger.el -*- lexical-binding: t; -*-
|
|
|
|
(cl-defun doom-cli--debugger (error data)
|
|
(cl-incf num-nonmacro-input-events)
|
|
(cl-destructuring-bind (backtrace &optional type data . _)
|
|
(cons (doom-cli--backtrace) data)
|
|
(with-output-to! doom--cli-log-buffer
|
|
(let ((straight-error
|
|
(and (bound-and-true-p straight-process-buffer)
|
|
(stringp data)
|
|
(string-match-p (regexp-quote straight-process-buffer)
|
|
data)
|
|
(with-current-buffer (straight--process-buffer)
|
|
(split-string (buffer-string) "\n" t)))))
|
|
(cond (straight-error
|
|
(print! (error "The package manager threw an error"))
|
|
(print! (error "Last 25 lines of straight's error log:"))
|
|
(print-group!
|
|
(print!
|
|
"%s" (string-join
|
|
(seq-subseq straight-error
|
|
(max 0 (- (length straight-error) 25))
|
|
(length straight-error))
|
|
"\n"))))
|
|
((print! (error "There was an unexpected error"))
|
|
(print-group!
|
|
(print! "%s %s" (bold "Message:") (get type 'error-message))
|
|
(print! "%s %S" (bold "Data:") (cons type data))
|
|
(when backtrace
|
|
(print! (bold "Backtrace:"))
|
|
(print-group!
|
|
(dolist (frame (seq-take backtrace 10))
|
|
(print!
|
|
"%0.74s" (replace-regexp-in-string
|
|
"[\n\r]" "\\\\n"
|
|
(format "%S" frame)))))))))
|
|
(when backtrace
|
|
(with-temp-file doom-cli-log-error-file
|
|
(insert "# -*- lisp-interaction -*-\n")
|
|
(insert "# vim: set ft=lisp:\n")
|
|
(let ((standard-output (current-buffer))
|
|
(print-quoted t)
|
|
(print-escape-newlines t)
|
|
(print-escape-control-characters t)
|
|
(print-level nil)
|
|
(print-circle nil))
|
|
(when straight-error
|
|
(print (string-join straight-error "\n")))
|
|
(mapc #'print (cons (list type data) backtrace)))
|
|
(print! (warn "Extended backtrace logged to %s")
|
|
(relpath doom-cli-log-error-file)))))))
|
|
(throw 'exit 255))
|
|
|
|
(defun doom-cli--backtrace ()
|
|
(let* ((n 0)
|
|
(frame (backtrace-frame n))
|
|
(frame-list nil)
|
|
(in-program-stack nil))
|
|
(while frame
|
|
(when in-program-stack
|
|
(push (cdr frame) frame-list))
|
|
(when (eq (elt frame 1) 'doom-cli--debugger)
|
|
(setq in-program-stack t))
|
|
(when (and (eq (elt frame 1) 'doom-cli-execute)
|
|
(eq (elt frame 2) :doom))
|
|
(setq in-program-stack nil))
|
|
(setq n (1+ n)
|
|
frame (backtrace-frame n)))
|
|
(reverse frame-list)))
|