From cca328cbacb57113c8e5db95a0471c2b392f99ee Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Sun, 11 Oct 2015 15:02:27 -0400 Subject: * rt-liberation.el: Add Resolved time predicate. --- rt-liberation.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'rt-liberation.el') diff --git a/rt-liberation.el b/rt-liberation.el index b9b013f..b32efb4 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -52,6 +52,9 @@ (defvar rt-liber-created-string "Created" "String representation of \"created\" query tag.") +(defvar rt-liber-resolved-string "Resolved" + "String representation of \"resolved\" query tag.") + (defvar rt-liber-base-url "" "Base url for ticket display.") @@ -244,7 +247,7 @@ This variable is made buffer local for the ticket history") email-address))) (defun rt-liber-time-p (sym) "Return t if SYM is a temporal attribute, otherwise nil." - (member sym '(created lastupdated))) + (member sym '(created lastupdated resolved))) (defun rt-liber-negation-p (sym) (member sym '(not))) @@ -291,7 +294,8 @@ AFTER date after predicate." ;; time ((rt-liber-time-p query) `,(cond ((equal query 'created) rt-liber-created-string) - ((equal query 'lastupdated) rt-liber-lastupdated-string))) + ((equal query 'lastupdated) rt-liber-lastupdated-string) + ((equal query 'resolved) rt-liber-resolved-string))) ((and (listp query) (rt-liber-time-p (car query))) `(rt-liber-make-interval -- cgit v1.2.3 From 9ce5b010422e4e577be07748ff7e38f656412a25 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Mon, 12 Oct 2015 14:01:15 -0400 Subject: * rt-liberation.el: Clear up old CLI note. --- rt-liberation.el | 6 ------ 1 file changed, 6 deletions(-) (limited to 'rt-liberation.el') diff --git a/rt-liberation.el b/rt-liberation.el index b32efb4..03ce583 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -435,12 +435,6 @@ AFTER date after predicate." ;;; Ticket retriever ;;; -------------------------------------------------------- -;; Implementation note: Working with 3.8.1 or 3.8.2 of the RT CLI -;; makes a huge difference here. 3.8.1 returns a kind of listing of -;; the history ID objects which requires further processing. 3.8.2 on -;; the other hand returns the contents of all the ticket history -;; objects in one fell swoop. - (defun rt-liber-create-ticket-history-string (ticket-id) "Create a query for TICKET-ID to retrieve all history objects." (concat "ticket/" ticket-id "/history/id")) -- cgit v1.2.3