fix(lib): wrong-number-of-args error on doom/info
- Fixes a wrong-number-of-args error, due to outdated interactive spec (#6227). - Fixes a regression (caused by the refactor indcae7187b4
) where the doom-info buffer is initially too short (~3 lines tall) to display all of its contents. Fix: #6227 Amend:dcae7187b4
This commit is contained in:
parent
f6fd2dc000
commit
14ebfc02a5
1 changed files with 18 additions and 16 deletions
|
@ -278,22 +278,24 @@ ready to be pasted in a bug report on github."
|
||||||
(defun doom/info ()
|
(defun doom/info ()
|
||||||
"Collects some debug information about your Emacs session, formats it and
|
"Collects some debug information about your Emacs session, formats it and
|
||||||
copies it to your clipboard, ready to be pasted into bug reports!"
|
copies it to your clipboard, ready to be pasted into bug reports!"
|
||||||
(interactive "P")
|
(interactive)
|
||||||
(with-current-buffer (pop-to-buffer "*doom info*")
|
(let ((buffer (get-buffer-create "*doom info*")))
|
||||||
(setq buffer-read-only t)
|
(with-current-buffer buffer
|
||||||
(with-silent-modifications
|
(setq buffer-read-only t)
|
||||||
(erase-buffer)
|
(with-silent-modifications
|
||||||
(save-excursion
|
(erase-buffer)
|
||||||
(dolist (spec (cl-remove-if-not #'cdr (doom-info)))
|
(save-excursion
|
||||||
(insert! "%-11s %s\n"
|
(dolist (spec (cl-remove-if-not #'cdr (doom-info)))
|
||||||
((car spec)
|
(insert! "%-11s %s\n"
|
||||||
(if (listp (cdr spec))
|
((car spec)
|
||||||
(mapconcat (lambda (x) (format "%s" x))
|
(if (listp (cdr spec))
|
||||||
(cdr spec) " ")
|
(mapconcat (lambda (x) (format "%s" x))
|
||||||
(cdr spec)))))))
|
(cdr spec) " ")
|
||||||
(kill-new (buffer-string))
|
(cdr spec)))))))
|
||||||
(when (y-or-n-p "Your doom-info was copied to the clipboard.\n\nOpen pastebin.com?")
|
(pop-to-buffer buffer)
|
||||||
(browse-url "https://pastebin.com"))))
|
(kill-new (buffer-string))
|
||||||
|
(when (y-or-n-p "Your doom-info was copied to the clipboard.\n\nOpen pastebin.com?")
|
||||||
|
(browse-url "https://pastebin.com")))))
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue