branch: externals/rt-liberation
commit 519184e7e7816f775c47d86ba1fdf2e8c7afea91
Author: Yoni Rabkin <y...@rabkins.net>
Commit: Yoni Rabkin <y...@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
