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 in dcae7187b4) 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:
Henrik Lissner 2022-03-31 19:28:34 +02:00
parent f6fd2dc000
commit 14ebfc02a5
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -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")))))
;; ;;