diff options
author | Yoni Rabkin <yrk@gnu.org> | 2015-10-19 17:15:34 -0400 |
---|---|---|
committer | Yoni Rabkin <yrk@gnu.org> | 2015-10-19 17:15:34 -0400 |
commit | 20bf7ccb58553d0fbb1543099c59ec8a51726e6b (patch) | |
tree | 7a5fcd7a0ea3f1f542248c3947b870667bb7d084 /rt-liberation.el | |
parent | c95b74570d823246e24e3bdb7e0fdf06b0b82c4a (diff) |
Add rt-report.
Diffstat (limited to 'rt-liberation.el')
-rw-r--r-- | rt-liberation.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/rt-liberation.el b/rt-liberation.el index b9b013f..1a62a70 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -58,6 +58,9 @@ (defvar rt-liber-lastupdated-string "LastUpdated" "String representation of \"lastupdated\" query tag.") +(defvar rt-liber-resolved-string "Resolved" + "String representation of \"resolved\" query tag.") + (defvar rt-liber-content-string "Content LIKE" "String representation of \"content\" query tag.") @@ -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 |