;;~ title    "Active listings"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     analysis
;;~ flavor   white
;;~ id       list-active
;;~ touches  ()
;;~ summary  "Every listing live + buyable right now. Reads through Etsy via act → named result handler — no direct verb calls."

;; A WHITE cart, architect-shape. The verb call lives inside (act ...)
;; with a SYMBOL on-result. The driver intercepts, makes the real
;; request, threads the response into ctx's 'last-result, then jumps
;; to the named state fn. This is the same shape every read cart uses;
;; the only difference between this and a write cart is whether the
;; cart's 'touches lists a gated verb.

(cart 'list-active
  '((author    . "lacuna")
    (version   . 1)
    (read-only . #t)))

(define (start ctx)
  (act 'etsy/listings (list 'active) 'render))

(define (render ctx)
  (let ((rows (ctx-result ctx)))
    (table rows '(listing-id title price quantity views favorites))
    (done)))