summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yonirabkin@member.fsf.org>2014-04-16 22:09:45 -0400
committerYoni Rabkin <yonirabkin@member.fsf.org>2014-04-16 22:09:45 -0400
commit7bc66d0a767a3f1213a18445d00c02d62ece9d6e (patch)
treedf3696b3952bdcde8f86a20203c5a36623b955c4
parent4dd2f8273ca9d1e1e1469c4618b0140dee721c14 (diff)
* rt-liberation.el: Add %-sequence support for priority.
-rw-r--r--rt-liberation.el12
1 files changed, 10 insertions, 2 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index 1b3ec5e..3f0298f 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -729,7 +729,8 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(anc (if rt-liber-anc-p
(rt-liber-get-ancillary-text
(rt-liber-ticket-id-only ticket-alist))
- "")))
+ ""))
+ (priority (cdr (assoc "Priority" ticket-alist))))
(list (cons ?i (or id "N/A"))
(cons ?s (or subject "N/A"))
(cons ?c (or created "N/A"))
@@ -739,7 +740,14 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(cons ?C (or creator "N/A"))
(cons ?o (or owner "N/A"))
(cons ?q (or queue "N/A"))
- (cons ?A (or anc "")))))
+ (cons ?A (or anc ""))
+ (cons ?p (or priority "N/A")))))
+
+(defun rt-liber-browser-assoc (char alist)
+ "Process the %-sequence association."
+ (let ((v (cdr (assoc char alist))))
+ (cond ((eq char ?%) "%") ;; escape sequence for %
+ (t (or v "")))))
(defun rt-liber-format (format ticket-alist)
"Substitute %-sequences in FORMAT."