[elpa] externals/debbugs 36289f9: Cleanup of debbugs-gnu-package

[Michael Albinus]

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

    Cleanup of debbugs-gnu-package
    
    * debbugs-gnu.el (debbugs-gnu-print-function): New defvar.
    (debbugs-gnu-show-reports, debbugs-gnu-toggle-sort)
    (debbugs-gnu-widen, debbugs-gnu-toggle-suppress): Call it.
    (debbugs-gnu-package): Bind it to ...
    (debbugs-gnu-package-tabulated-list-print): New defun, derived
    from `debbugs-gnu-package'.  Print also Emacs blocking reports.
---
 debbugs-gnu.el  | 59 +++++++++++++++++++++++++++++++++++++++++++++++++--------
 debbugs-ug.texi | 14 ++++++++++++++
 2 files changed, 65 insertions(+), 8 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index e9100d4..760b764 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -52,8 +52,8 @@
 ;; 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
+;; If you want to see all bugs for a given package, sorted by severity
+;; and whether already resolved, call
 ;;
 ;;   M-x debbugs-gnu-package
 
@@ -662,6 +662,10 @@ depend on PHRASE being a string, or nil.  See Info node
   (interactive)
   (debbugs-gnu '("tagged")))
 
+(defvar debbugs-gnu-print-function #'tabulated-list-print
+  "Which function to apply printing the tabulated list..
+See `debbugs-gnu-package' for an alternative.")
+
 ;;;###autoload
 (defun debbugs-gnu-package (&optional packages)
   "List the bug reports of default packages, divided by severity."
@@ -673,9 +677,20 @@ depend on PHRASE being a string, or nil.  See Info node
           (string-join debbugs-gnu-default-packages ","))
        debbugs-gnu-default-packages)))
 
-  (debbugs-gnu debbugs-gnu-applicable-severities packages)
+  (let ((debbugs-gnu-print-function 
#'debbugs-gnu-package-tabulated-list-print))
+    (debbugs-gnu debbugs-gnu-applicable-severities packages))
+  (setq-local debbugs-gnu-print-function
+             #'debbugs-gnu-package-tabulated-list-print))
+
+(defun debbugs-gnu-package-tabulated-list-print ()
+  "Print the tabulated list for `tramp-gnu-package'."
   (let ((inhibit-read-only t)
-       (entries tabulated-list-entries))
+       (entries tabulated-list-entries)
+       (packages
+        (delq nil
+              (mapcar
+               (lambda (x) (when (eq (car x) 'package) (cdr x)))
+               debbugs-gnu-current-query))))
     (kill-region (point-min) (point-max))
     (dolist (done '(t nil))
       (dolist (severity (reverse debbugs-gnu-applicable-severities))
@@ -700,6 +715,34 @@ depend on PHRASE being a string, or nil.  See Info node
            'face 'debbugs-gnu-title))
          (widen))))
 
+    (when (member "emacs" packages)
+      (when-let ((blockers
+                 (alist-get
+                  'blockedby
+                  (car
+                   (debbugs-get-status
+                    (alist-get
+                     debbugs-gnu-emacs-current-release
+                     debbugs-gnu-emacs-blocking-reports nil nil #'equal))))))
+       (setq tabulated-list-entries
+             (delq nil
+                   (mapcar
+                    (lambda (x)
+                      (and (memq (alist-get 'id (car x)) blockers)
+                           (equal "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 "\nBugs blocking Emacs %s release\n\n"
+                   debbugs-gnu-emacs-current-release)
+           'face 'debbugs-gnu-title))
+         (widen))))
+
     (goto-char (point-min))
     (insert
      (propertize
@@ -973,7 +1016,7 @@ are taken from the cache instead."
           'append))))
 
     (tabulated-list-init-header)
-    (tabulated-list-print)
+    (funcall debbugs-gnu-print-function)
 
     (set-buffer-modified-p nil)
     (goto-char (point-min))))
@@ -1298,7 +1341,7 @@ Interactively, it is non-nil with the prefix argument."
     (setq debbugs-gnu-sort-state 'number)
     (setq tabulated-list-sort-key (cons "State" nil)))
   (tabulated-list-init-header)
-  (tabulated-list-print))
+  (funcall debbugs-gnu-print-function))
 
 (defun debbugs-gnu-widen ()
   "Display all the currently selected bug reports."
@@ -1307,7 +1350,7 @@ Interactively, it is non-nil with the prefix argument."
        (inhibit-read-only t))
     (setq debbugs-gnu-limit nil)
     (tabulated-list-init-header)
-    (tabulated-list-print)
+    (funcall debbugs-gnu-print-function)
     (when id
       (debbugs-gnu-goto id))))
 
@@ -1482,7 +1525,7 @@ interesting to you."
   (interactive)
   (setq debbugs-gnu-local-suppress (not debbugs-gnu-local-suppress))
   (tabulated-list-init-header)
-  (tabulated-list-print))
+  (funcall debbugs-gnu-print-function))
 
 (defvar debbugs-gnu-bug-number nil)
 (defvar debbugs-gnu-subject nil)
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index 6217ce4..1ae2e27 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -150,6 +150,20 @@ options @code{debbugs-gnu-default-severities} and
 @end deffn
 
 
+@deffn  {Command} debbugs-gnu-package &optional packages
+
+This command shows all bugs for a given list of @var{packages}, sorted
+by severity and whether already resolved.  It is
+@code{debbugs-gnu-default-packages} per default.
+
+If the package @code{"emacs"} is member of the @var{packages} list,
+also all unresolved bugs for the next Emacs release are shown, like
+@code{debbugs-gnu-emacs-release-blocking-reports} does (see below).
+
+@ref{Presenting Bugs} for the presentation of the results.
+@end deffn
+
+
 @deffn  {Command} debbugs-gnu-bugs &rest bugs
 @deffnx {Command} debbugs-org-bugs &rest bugs