;;~ title    "Suggest tags for a listing"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   green
;;~ id       tag-suggest
;;~ touches  ()
;;~ summary  "Haiku proposes 13 SEO-aware tags from title + description."

;; Haiku proposes 13 SEO-aware tags from title + description.
;;
;; Read-only cart, architect-shape. The verb call lives inside (act ...)
;; with a SYMBOL on-result. The driver intercepts, makes the real Etsy
;; request, threads the response into ctx via 'last-result, then jumps
;; to the named result handler.

(cart 'tag-suggest
  '((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/listing (list 'suggest) '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 '(tag count))
                                   (done))))))