[elpa] externals/rt-liberation cca328c 49/72: * rt-liberation.el: Add Resolved time predicate.

[Stefan Monnier]

branch: externals/rt-liberation
commit cca328cbacb57113c8e5db95a0471c2b392f99ee
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * rt-liberation.el: Add Resolved time predicate.
---
 rt-liberation.el | 8 ++++++--
 1 file 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