;;~ title    "Message response-time tracker"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   pink
;;~ id       message-response-time-tracker
;;~ trigger  cron:daily
;;~ touches  ()
;;~ summary  "Daily check: median time-to-reply across open buyer threads, flag stragglers."

;; A daily pulse on responsiveness. Pulls the conversation list, lets
;; the local Sakura summarize the median + outliers. No cloud; this
;; is a numeric summary task that fits on-device.

(cart 'message-response-time-tracker
  '((author    . "lacuna")
    (version   . 1)
    (read-only . #t)))

(define (start ctx)
  (let ((connected (ctx-get 'shop-connected ctx)))
    (cond
      ((not connected) (escalate 'shop-not-connected null))
      (else            (next 'fetch ctx)))))

(define (fetch ctx)
  (act 'etsy/conversations (list 'open) 'summarize))

(define (summarize ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                       (escalate 'no-data null))
      ((eq? r 'rate-limited)           (after 30 'fetch ctx))
      (else                            (act 'sakura/decide
                                            (list 'task 'response-time-summary r)
                                            'check-result)))))

(define (check-result ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)              (escalate 'sakura-empty null))
      ((not (string? r))      (escalate 'sakura-garbled null))
      (else                   (next 'announce (ctx-set 'summary r ctx))))))

(define (announce ctx) (done))