[elpa] externals/rt-liberation b506154 14/72: * rt-liberation.el: Update the browser display format.

[Stefan Monnier]

branch: externals/rt-liberation
commit b50615497aad2b172606e985895750a92dfa219f
Author: Yoni Rabkin <yonirabkin@member.fsf.org>
Commit: Yoni Rabkin <yonirabkin@member.fsf.org>

    * rt-liberation.el: Update the browser display format.
---
 rt-liberation.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index bedfae1..7ebe5bf 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -761,25 +761,22 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
     (replace-regexp-in-string
      "%."
      (lambda (str)
-       (let ((char (aref str 1)))
-        (if (eq char ?%) "%"
-          (or (cdr (assoc char alist)) ""))))
+       (rt-liber-browser-assoc (aref str 1) alist))
      format t t)))
 
 (defun rt-liber-ticketlist-browser-redraw-f (ticket)
   "Display TICKET."
-  (insert (rt-liber-format "[%c] %i" ticket))
+  (insert (rt-liber-format "[%c %i %S]" ticket))
   (add-text-properties (point-at-bol)
                       (point-at-eol)
                       '(face rt-liber-ticket-face))
   (newline)
-  (insert (rt-liber-format "    [%S] %s" ticket))
+  (insert (rt-liber-format "  [%o] %R: %s" ticket))
   (let ((p (point)))
     (insert (rt-liber-format "    %A" ticket))
     (add-text-properties p (point)
                         '(face font-lock-comment-face)))
-  (newline)
-  (insert (rt-liber-format "    %o <== %R" ticket)))
+  (newline))
 
 (declare-function rt-liber-ticket-marked-p
                  "rt-liberation-multi.el")