diff options
| -rw-r--r-- | rt-liberation-report.el | 40 |
1 files changed, 16 insertions, 24 deletions
diff --git a/rt-liberation-report.el b/rt-liberation-report.el index 0d693a0..81fd50c 100644 --- a/rt-liberation-report.el +++ b/rt-liberation-report.el @@ -32,30 +32,22 @@ (require 'rt-liberation-rest) -;; This query works for a single day _BUT_ only if `resolved' is added -;; as a `rt-liber-attrib-p'. The `nil' is the result when there are no -;; tickets to return and the list is what comes back when tickets are -;; found. -;; -;; (rt-liber-rest-run-show-base-query -;; (rt-liber-rest-run-ls-query -;; (rt-liber-compile-query -;; (and (queue "licensing") -;; (resolved "2015-10-09") -;; (status "resolved"))))) -;; -;; However, note that the following inequalities work too and would be -;; the right way to do the query: -;; -;; (rt-liber-rest-run-ls-query "Queue = 'licensing' AND Resolved < -;; '2015-10-02' AND Resolved > '2015-09-28' AND Status = 'resolved'") -;; -;; NOTE!!! rt-liberation already supports "temporal" predicates, but I -;; need to add `resolved' ("Resolved") as one of them and check that -;; it works. -;; -;; nil -;; +(defun rt-liberation-report-resolved-interval (rt-queue start-date end-date) + "Return tickets resolved between START-DATE and END-DATE. + +The tickets must have their current status be Resolved in order +to be returned by this function. If no tickets match the query, +return `nil'." + (rt-liber-rest-run-show-base-query + (rt-liber-rest-run-ls-query + (rt-liber-compile-query + (and (queue rt-queue) + (resolved start-date end-date) + (status "resolved")))))) + +;; (rt-liberation-report-resolved-interval "licensing" "2015-09-18" "2015-09-17") + + ;; ((("TimeLeft" . "0") ;; ("TimeWorked" . "0") ;; ("TimeEstimated" . "0") |