From 519184e7e7816f775c47d86ba1fdf2e8c7afea91 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 17 Feb 2021 11:15:45 -0500 Subject: * 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 -- cgit v1.2.3