procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a generic bug reporting command for packages

Browse source 
* lisp/emacs-lisp/package.el (package-menu-mode-map): Bind
'package-report-bug'.
(package-report-bug): Add new command.
This commit is contained in:
Philip Kaludercic 2022-10-06 21:45:36 +02:00
parent b6132d84e9
commit 7c11398ca0
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/emacs-lisp/package.el
View file

@ -2964,6 +2964,7 @@ either a full name or nil, and EMAIL is a valid email address."
"~" #'package-menu-mark-obsolete-for-deletion
"w" #'package-browse-url
"m" #'package-contact-maintainer
"b" #'package-report-bug
"x" #'package-menu-execute
"h" #'package-menu-quick-help
"H" #'package-menu-hide-package
@ -4516,6 +4517,37 @@ DESC must be a `package-desc' object."
(string-trim (substring-no-properties (buffer-string))))
(format "[%s] %s" name subject))))
(defun package-report-bug (desc)
"Prepare a message to send to the maintainers of a package.
DESC must be a `package-desc' object."
(interactive (list (package--query-desc package-alist))
package-menu-mode)
(unless desc
(user-error "Package must be non-nil"))
(let* ((extras (package-desc-extras desc))
(maint (alist-get :maintainer extras))
vars)
(unless maint
(user-error "Package %s has no explicit maintainer"
(package-desc-name desc)))
(let ((check (apply-partially #'file-equal-p (package-desc-dir desc))))
(dolist-with-progress-reporter (group custom-current-group-alist)
"Scanning for modified user options..."
(dolist (ent (get (cdr group) 'custom-group))
(when (and (custom-variable-p (car ent))
(boundp (car ent))
(not (eq (custom--standard-value (car ent))
(default-toplevel-value (car ent))))
(locate-dominating-file (car group) check))
(push (car ent) vars)))))
(dlet ((reporter-prompt-for-summary-p t))
(reporter-submit-bug-report
(with-temp-buffer
(package--print-email-button maint)
(string-trim (substring-no-properties (buffer-string))))
(symbol-name (package-desc-name desc))
vars))))
;;;; Introspection
(defun package-get-descriptor (pkg-name)