[elpa] externals/rt-liberation 519184e 08/15: * rt-liberation.el: new function `rt-liber-display-ticket'

[Yoni Rabkin]

branch: externals/rt-liberation
commit 519184e7e7816f775c47d86ba1fdf2e8c7afea91
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation.el: new function `rt-liber-display-ticket'
---
 rt-liberation.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/rt-liberation.el b/rt-liberation.el
index 4ea72d1..40c11cc 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -493,6 +493,15 @@ AFTER  date after predicate."
     (error "null field symbol"))
   (cdr (assoc field-symbol rt-liber-field-dictionary)))
 
+(defun rt-liber-display-ticket (ticket-number)
+  "Display ticket with TICKET-NUMBER."
+  (interactive "nticket number: ")
+  (let ((ticket-id (number-to-string ticket-number)))
+    (rt-liber-browse-query
+     (rt-liber-compile-query
+      (id ticket-id))
+     (concat "#" ticket-id))))
+
 
 ;;; --------------------------------------------------------
 ;;; Ticket browser