branch: externals/debbugs
commit cca928252251603532844ba55706f8dc477325bc
Author: Lars Ingebrigtsen <[email protected]>
Commit: Lars Ingebrigtsen <[email protected]>
Make the debbugs display more compact so that you can read the titles
---
debbugs-gnu.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 4e1d5dc..8e74b12 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -939,12 +939,11 @@ Used instead of `tabulated-list-print-entry'."
state))
;; Insert submitter.
(indent-to (setq pos (+ pos state-length 1)) 1)
- (insert "[" (if (> (length submitter) (- submitter-length 2))
- (propertize (substring submitter 0 (- submitter-length 2))
- 'help-echo submitter)
- submitter))
+ (insert (if (> (length submitter) submitter-length)
+ (propertize (substring submitter 0 submitter-length)
+ 'help-echo submitter)
+ submitter))
(indent-to (+ pos (1- submitter-length)))
- (insert "]")
;; Insert title.
(indent-to (setq pos (+ pos submitter-length 1)) 1)
(insert (propertize title 'help-echo title))
@@ -1084,8 +1083,8 @@ Interactively, it is non-nil with the prefix argument."
(set (make-local-variable 'debbugs-gnu-local-suppress)
debbugs-gnu-current-suppress)
(setq tabulated-list-format [("Id" 5 debbugs-gnu-sort-id)
- ("State" 20 debbugs-gnu-sort-state)
- ("Submitter" 25 debbugs-gnu-sort-submitter)
+ ("State" 10 debbugs-gnu-sort-state)
+ ("Submitter" 18 debbugs-gnu-sort-submitter)
("Title" 10 debbugs-gnu-sort-title)])
(setq tabulated-list-sort-key (cons "Id" nil))
(setq tabulated-list-printer #'debbugs-gnu-print-entry)
