[elpa] externals/debbugs 381f2da: Introduce new command `debbugs-gnu-package'.

[Michael Albinus]

branch: externals/debbugs
commit 381f2dad9f36838f98032f99e6808b13955cabe0
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Introduce new command `debbugs-gnu-package'.
    
    * debbugs-gnu.el (debbugs-gnu-applicable-severities): New defconst.
    (debbugs-gnu-stale-1): Make forground color better readable.
    (debbugs-gnu-title): New defface.
    (debbugs-gnu-emacs-current-release): Adapt to Emacs 28.1
    (debbugs-gnu-package): New defun.
---
 debbugs-gnu.el | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 63 insertions(+), 3 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index cf9e17b..e9100d4 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -52,6 +52,15 @@
 ;; the default), whether archived bugs shall be shown, and whether
 ;; closed bugs shall be suppressed from being retrieved.
 
+;; If you want all bugs for a given package, sorted by severity and
+;; whether already resolved, call
+;;
+;;   M-x debbugs-gnu-package
+
+;; Per default it shows the bugs for package "emacs", but with a
+;; prefix given to the command, different package names can be
+;; specified (comma-separated).
+
 ;; Another command is
 ;;
 ;;   M-x debbugs-gnu-search
@@ -266,6 +275,10 @@ If nil, the value of `send-mail-function' is used instead."
   (mapcar #'cadr (cdr (get 'debbugs-gnu-default-severities 'custom-type)))
   "List of all possible severities.")
 
+(defconst debbugs-gnu-applicable-severities
+  (remove "tagged" debbugs-gnu-all-severities)
+  "List of all applicable severities.")
+
 (defcustom debbugs-gnu-default-packages '("emacs")
   "The list of packages to be searched for."
   ;; <https://debbugs.gnu.org/Packages.html>
@@ -346,7 +359,7 @@ If this is `rmail', use Rmail instead."
 (defface debbugs-gnu-handled '((t (:foreground "ForestGreen")))
   "Face for reports that have been modified recently.")
 
-(defface debbugs-gnu-stale-1 '((t (:foreground "#a0a000")))
+(defface debbugs-gnu-stale-1 '((t (:foreground "#b0b000")))
   "Face for reports that have been touched two to four weeks ago.")
 
 (defface debbugs-gnu-stale-2 '((t (:foreground "#c0c000")))
@@ -376,6 +389,9 @@ If this is `rmail', use Rmail instead."
 (defface debbugs-gnu-marked '((t (:background "DarkGrey")))
   "Face for reports that have been marked locally.")
 
+(defface debbugs-gnu-title '((t (:height 1.2 :bold t)))
+  "Face for titles.")
+
 (defvar debbugs-gnu-local-tags nil
   "List of bug numbers tagged locally, and kept persistent.")
 
@@ -415,14 +431,14 @@ a date, value is the cons cell (BEFORE . AFTER).")
 The specification which bugs shall be suppressed is taken from
   `debbugs-gnu-default-suppress-bugs'.")
 
-(defcustom debbugs-gnu-emacs-current-release "27.2"
+(defcustom debbugs-gnu-emacs-current-release "28.1"
   "The current Emacs relase developped for."
   :type '(choice (const "24.5")
                 (const "25.1") (const "25.2")
                 (const "26.1") (const "26.3")
                 (const "27.1") (const "27.2")
                 (const "28.1"))
-  :version "27.2")
+  :version "28.1")
 
 (defconst debbugs-gnu-emacs-blocking-reports
   '(("24.5" . 19758)
@@ -646,6 +662,50 @@ depend on PHRASE being a string, or nil.  See Info node
   (interactive)
   (debbugs-gnu '("tagged")))
 
+;;;###autoload
+(defun debbugs-gnu-package (&optional packages)
+  "List the bug reports of default packages, divided by severity."
+  (interactive
+     (list
+      (if current-prefix-arg
+         (completing-read-multiple
+          "Packages: " debbugs-gnu-applicable-packages nil t
+          (string-join debbugs-gnu-default-packages ","))
+       debbugs-gnu-default-packages)))
+
+  (debbugs-gnu debbugs-gnu-applicable-severities packages)
+  (let ((inhibit-read-only t)
+       (entries tabulated-list-entries))
+    (kill-region (point-min) (point-max))
+    (dolist (done '(t nil))
+      (dolist (severity (reverse debbugs-gnu-applicable-severities))
+       (setq tabulated-list-entries
+             (delq nil
+                   (mapcar
+                    (lambda (x)
+                      (and (equal severity (alist-get 'severity (car x)))
+                           (equal (if done "done" "pending")
+                                  (alist-get 'pending (car x)))
+                           x))
+                    entries)))
+       (when tabulated-list-entries
+         (narrow-to-region (point-min) (point-max))
+         (tabulated-list-print nil 'update)
+         (goto-char (point-min))
+         (insert
+          (propertize
+           (format
+            "\n%s bugs - %s:\n\n"
+            (capitalize severity) (if done "resolved" "outstanding"))
+           'face 'debbugs-gnu-title))
+         (widen))))
+
+    (goto-char (point-min))
+    (insert
+     (propertize
+      (format "GNU bug reports: package(s) %s\n" (string-join packages ","))
+      'face 'debbugs-gnu-title))))
+
 (defvar debbugs-gnu-show-reports-function #'debbugs-gnu-show-reports
   "Which function to apply showing bug reports.
 Shall be bound in `debbugs-org-*' functions.")