;;~ title    "Suggest missing attributes"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   pink
;;~ id       attribute-fill-suggest
;;~ trigger  event:listing-edited
;;~ touches  ()
;;~ summary  "When a listing is edited, propose the missing taxonomy attributes (material, color, occasion) from the title."

;; Reads the listing's current attrs + title, asks the local Sakura
;; to propose values for any missing attrs. Output is a list of
;; (attr-name, suggested-value) pairs; type-trapped before announce.

(cart 'attribute-fill-suggest
  '((author    . "lacuna")
    (version   . 1)
    (read-only . #t)))

(define (start ctx)
  (let ((id (ctx-get 'listing-id ctx)))
    (if (null? id)
        (escalate 'missing-listing-id null)
        (next 'fetch ctx))))

(define (fetch ctx)
  (let ((id (ctx-get 'listing-id ctx)))
    (act 'etsy/listing (list id 'with-taxonomy-attrs) 'invoke)))

(define (invoke ctx)
  (let ((listing (ctx-result ctx)))
    (cond
      ((null? listing)              (escalate 'no-data null))
      ((eq? listing 'rate-limited)  (after 30 'fetch ctx))
      (else (act 'sakura/decide
                 (list 'task 'attribute-fill-suggest listing)
                 'check-result)))))

(define (check-result ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)              (escalate 'sakura-empty null))
      ((not (list? r))        (escalate 'sakura-garbled null))
      (else                   (next 'announce (ctx-set 'suggestions r ctx))))))

(define (announce ctx) (done))