[elpa] externals/debbugs 7de261af1c: Make column widths customizable

[Michael Albinus]

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

    Make column widths customizable
    
    * debbugs-gnu.el (debbugs-gnu-width-id, debbugs-gnu-width-state)
    (debbugs-gnu-width-submitter, debbugs-gnu-width-title): New defcustoms.
    (debbugs-gnu-mode): Use them.  (Bug#74162)
    
    * debbugs-ug.texi (Tabulated Lists): Mention debbugs-gnu-width-id,
    debbugs-gnu-width-state, debbugs-gnu-width-submitter, and
    debbugs-gnu-width-title.
    
    * debbugs.el: Bump version to 0.42.
---
 debbugs-gnu.el  | 29 +++++++++++++++++++++++++----
 debbugs-ug.texi |  5 +++++
 debbugs.el      |  2 +-
 3 files changed, 31 insertions(+), 5 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index a906fc3e5a..f8cfcdc2c8 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -1338,6 +1338,26 @@ Interactively, it is non-nil with the prefix argument."
   (message "Reverting buffer")
   (debbugs-gnu nil))
 
+(defcustom debbugs-gnu-width-id 5
+  "The width of the \"Id\" column in the tabulated list"
+  :type 'integer
+  :version "30.1")
+
+(defcustom debbugs-gnu-width-state 10
+  "The width of the \"State\" column in the tabulated list"
+  :type 'integer
+  :version "30.1")
+
+(defcustom debbugs-gnu-width-submitter 18
+  "The width of the \"Submitter\" column in the tabulated list"
+  :type 'integer
+  :version "30.1")
+
+(defcustom debbugs-gnu-width-title 10
+  "The width of the \"Title\" column in the tabulated list"
+  :type 'integer
+  :version "30.1")
+
 (define-derived-mode debbugs-gnu-mode tabulated-list-mode "Debbugs"
   "Major mode for listing bug reports.
 The bugs are taken from the cache when the list is refreshed.
@@ -1356,10 +1376,11 @@ modified on the debbugs server, consider typing \\`C-u 
g'.
   (set (make-local-variable 'debbugs-gnu-local-print-function)
        debbugs-gnu-current-print-function)
   (set (make-local-variable 'tabulated-list-entries) nil)
-  (setq tabulated-list-format [("Id"         5 debbugs-gnu-sort-id)
-                              ("State"     10 debbugs-gnu-sort-state)
-                              ("Submitter" 18 debbugs-gnu-sort-submitter)
-                              ("Title"     10 debbugs-gnu-sort-title)])
+  (setq tabulated-list-format
+        `[("Id" ,debbugs-gnu-width-id debbugs-gnu-sort-id)
+         ("State" ,debbugs-gnu-width-state debbugs-gnu-sort-state)
+         ("Submitter" ,debbugs-gnu-width-submitter debbugs-gnu-sort-submitter)
+         ("Title" ,debbugs-gnu-width-title debbugs-gnu-sort-title)])
   (setq tabulated-list-sort-key (cons "Id" nil))
   (setq tabulated-list-printer #'debbugs-gnu-print-entry)
   (add-hook 'tabulated-list-revert-hook #'debbugs-gnu-rescan nil t)
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index a00a6e6b93..7a8b7cca14 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -475,6 +475,11 @@ entry: @code{Id} (the bug number), @code{State} (some bug 
attributes),
 (the bug subject).  By default the bugs are sorted descending by
 @code{Id}; this can be changed by clicking in the headline.
 
+The width of the columns in the tabulated list are specified by the
+user options @code{debbugs-gnu-width-id},
+@code{debbugs-gnu-width-state}, @code{debbugs-gnu-width-submitter},
+and @code{debbugs-gnu-width-title}, respectively.
+
 Different foreground colors represent further information on the bug
 report.  If the bug number uses a red color
 (@code{debbugs-gnu-tagged}), the bug has been tagged locally.  The
diff --git a/debbugs.el b/debbugs.el
index 6f2ea226b3..ce01f4f247 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -5,7 +5,7 @@
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
 ;; Keywords: comm, hypermedia
 ;; Package: debbugs
-;; Version: 0.41
+;; Version: 0.42
 ;; Package-Requires: ((emacs "26.1") (soap-client "3.1.5"))
 
 ;; This file is not part of GNU Emacs.