;;~ title    "Featured listing rotation"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   pink
;;~ id       featured-listing-rotation
;;~ trigger  cron:weekly
;;~ touches  ()
;;~ summary  "Weekly: nudge the operator to rotate the four featured listings if they've been the same for over a month."

;; Pulls shop featured-listing slots + the date each was assigned.
;; Anything in a slot over 30 days surfaces with a nudge to rotate.
;; The rotation itself is a separate operator-driven action; this
;; cart only flags.

(cart 'featured-listing-rotation
  '((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/listings (list 'featured 'with-assigned-date) 'render))

(define (render ctx)
  (let ((rows (ctx-result ctx)))
    (cond
      ((null? rows)              (escalate 'no-data null))
      ((eq? rows 'rate-limited)  (after 30 'fetch ctx))
      (else                      (begin
                                   (table rows '(listing-id title assigned-at days-featured))
                                   (done))))))