;;~ title    "Cross-post · eBay → Google Shopping"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   purple
;;~ id       cross-post-ebay-to-google
;;~ touches  (ebay-listings google-merchant)
;;~ summary  "Event-triggered on listing-published-to-ebay. Sakura adapts and pushes to Google Shopping. eBay-side images can be signed URLs that expire — the mapper warns; sync still tries. Tier-gated to Magic+. Drafts never sync."

;; eBay → Google. Same shape as the Etsy variant but the source verb
;; is ebay/listing. The action-wrapper grammar is identical because the
;; field mapper is shared (listing_mapper.py works off the canonical
;; Listing shape — every platform-specific adapter normalises into that
;; before reaching the mapper).
;;
;; Notable difference vs the Etsy cart: eBay's image URLs are sometimes
;; signed + expire. The mapper warns; we still push. Phase 3 of the GMC
;; plan can re-host eBay images on Curator's own CDN if rejection rates
;; climb.

(cart 'cross-post-ebay-to-google
  '((author    . "lacuna")
    (version   . 1)
    (touches   . (ebay-listings google-merchant))
    (read-only . #f)))

(define (start ctx)
  (let ((id (ctx-get 'listing-id ctx)))
    (if (null? id)
        (escalate 'missing-listing-id null)
        (act 'ebay/listing (list id) 'check-listing))))

(define (check-listing ctx)
  (let ((listing (ctx-result ctx)))
    (cond
      ((null? listing)             (escalate 'listing-not-found null))
      ((listing-is-draft? listing) (escalate 'drafts-do-not-sync null))
      (else (next 'check-merchant (ctx-set 'listing listing ctx))))))

(define (check-merchant ctx)
  (act 'merchant_center.status '() 'check-merchant-result))

(define (check-merchant-result ctx)
  (let ((status (ctx-result ctx)))
    (cond
      ((not (status-connected? status))
       (escalate 'merchant-not-connected null))
      ((status-pending-verification? status)
       (after 3600 'check-merchant ctx))
      (else (next 'push ctx)))))

(define (push ctx)
  (let ((listing (ctx-get 'listing ctx)))
    (act 'merchant_center/sync (list listing) 'check-push-result)))

(define (check-push-result ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((push-ok? r)
       (next 'announce (ctx-set 'google-product-id (push-product-id r) ctx)))
      ((eq? r 'rate-limited)   (after 30 'push ctx))
      ((eq? r 'mapping-failed) (escalate 'mapping-failed (push-errors r)))
      (else                    (escalate 'push-failed r)))))

(define (announce ctx)
  (sakura/say (string-append
                "Cross-posted eBay → Google Shopping · "
                (ctx-get 'google-product-id ctx)))
  (done))