;;~ title    "Production-partner record audit"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   light-purple
;;~ id       production-partner-record-audit
;;~ trigger  cron:monthly
;;~ touches  ()
;;~ summary  "Monthly: listings that need a production-partner record declared per Etsy policy, draft the disclosure."

;; Etsy policy requires disclosure when listings are made with a
;; production partner. Pulls shop + listings, has Sonnet identify
;; the listings likely needing a disclosure based on title/desc cues
;; and absent declared partner.

(cart 'production-partner-record-audit
  '((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/shop (list 'with-listings-and-partners) 'check-fetch))

(define (check-fetch ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                       (escalate 'no-data null))
      ((eq? r 'rate-limited)           (after 30 'fetch ctx))
      (else                            (next 'reason (ctx-set 'shop r ctx))))))

(define (reason ctx)
  (let ((shop (ctx-get 'shop ctx)))
    (act 'sakura/cloud-reason
         (list 'task 'production-partner-audit shop)
         'check-reason)))

(define (check-reason ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                       (escalate 'cloud-empty null))
      ((not (string? r))               (escalate 'cloud-garbled null))
      ((eq? r 'cloud-quota-exhausted)  (escalate 'cloud-quota null))
      ((eq? r 'cloud-consent-required) (escalate 'cloud-consent null))
      (else                            (next 'announce (ctx-set 'audit r ctx))))))

(define (announce ctx) (done))