;;~ title    "Needs attention"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     analysis
;;~ flavor   white
;;~ id       list-needs-attention
;;~ touches  ()
;;~ summary  "Listings that flunk a basic health check — missing photos, tags, or description. Architect-shape: verb call via (act), filtering in a named state fn."

;; A listing flunks if it is active AND any of:
;;   · zero or one image attached
;;   · fewer than 10 tags
;;   · description shorter than 40 characters
;;
;; Three states: start → score → render → done. The fetch sits inside
;; (act ...); 'score reads the result via ctx-result and applies the
;; predicate.

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

(define (flunks? l)
  (and (eq? (listing-state l) 'active)
       (or (< (length (listing-images l)) 2)
           (< (length (listing-tags l)) 10)
           (< (string-length (listing-description l)) 40))))

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

(define (score ctx)
  (let* ((all  (ctx-result ctx))
         (rows (filter flunks? all)))
    (next 'render (ctx-set 'rows rows ctx))))

(define (render ctx)
  (let ((rows (ctx-get 'rows ctx)))
    (table rows '(listing-id title state image-count tag-count desc-length))
    (done)))