From 7bc66d0a767a3f1213a18445d00c02d62ece9d6e Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 16 Apr 2014 22:09:45 -0400 Subject: * rt-liberation.el: Add %-sequence support for priority. --- rt-liberation.el | 12 ++++++++++-- 1 file 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." -- cgit v1.2.3