summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yonirabkin@member.fsf.org>2014-04-16 22:54:59 -0400
committerYoni Rabkin <yonirabkin@member.fsf.org>2014-04-16 22:54:59 -0400
commitb50615497aad2b172606e985895750a92dfa219f (patch)
tree9384d5aab6ca2ace2c4d3e40b8406fa75f3509bf
parent6a5121485eb5e8e14cc62d127c725e3b555a513e (diff)
* rt-liberation.el: Update the browser display format.
-rw-r--r--rt-liberation.el11
1 files 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")