branch: externals/debbugs
commit 7de261af1c2d20afb4d126aed83fb05d1b4959aa
Author: Michael Albinus <michael.albi...@gmx.de>
Commit: Michael Albinus <michael.albi...@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.albi...@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.
