[elpa] externals/rt-liberation 7bc66d0 12/72: * rt-liberation.el: Add %-sequence support for priority.

[Stefan Monnier]

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

    * 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."