;;~ title    "Listing shipping profile"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     analysis
;;~ flavor   white
;;~ id       listing-shipping
;;~ touches  ()
;;~ summary  "How this ships."

;; How this ships.
;;
;; Read-only inspection cart. Needs 'listing-id (or 'shop-id) in ctx.
;; Standard wrapper: precondition_fetch (ctx has the id) -> act -> render.

(cart 'listing-shipping
  '((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) 'render)))

(define (render ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                       (escalate 'no-data null))
      ((eq? r 'rate-limited)           (after 30 'fetch ctx))
      ((eq? r 'auth-stale)             (escalate 'auth-relogin null))
      (else                            (begin
                                         (table r '(field value))
                                         (done))))))