summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yrk@gnu.org>2015-10-11 15:02:27 -0400
committerYoni Rabkin <yrk@gnu.org>2015-10-11 15:02:27 -0400
commitcca328cbacb57113c8e5db95a0471c2b392f99ee (patch)
tree4916987b39828466b7e58983d0984440099f58aa
parent6f53df4e82f4c0aa76920abdaff4f306ad55a433 (diff)
* rt-liberation.el: Add Resolved time predicate.
-rw-r--r--rt-liberation.el8
1 files changed, 6 insertions, 2 deletions
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