;;~ title    "Review sentiment tracker"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   light-purple
;;~ id       review-sentiment-tracker
;;~ trigger  event:new-review
;;~ touches  ()
;;~ summary  "On a new review, score sentiment and surface the theme (shipping, fit, quality, communication)."

;; Two-step: local sentiment classification first (cheap, fast). If
;; the review is below 4 stars OR sentiment is negative, escalate the
;; theme analysis to Sonnet so the operator sees the why, not just
;; the what.

(cart 'review-sentiment-tracker
  '((author    . "lacuna")
    (version   . 1)
    (read-only . #t)))

(define (start ctx)
  (let ((review (ctx-get 'review ctx)))
    (if (null? review)
        (escalate 'missing-review null)
        (next 'classify ctx))))

(define (classify ctx)
  (let ((review (ctx-get 'review ctx)))
    (act 'sakura/decide
         (list 'task 'classify-review-sentiment review)
         'check-classify)))

(define (check-classify ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)              (escalate 'sakura-empty null))
      ((eq? r 'positive)      (next 'announce (ctx-set 'sentiment r ctx)))
      ((eq? r 'neutral)       (next 'announce (ctx-set 'sentiment r ctx)))
      ((eq? r 'negative)      (next 'theme (ctx-set 'sentiment r ctx)))
      (else                   (escalate 'sakura-garbled null)))))

(define (theme ctx)
  (let ((review (ctx-get 'review ctx)))
    (act 'sakura/cloud-reason
         (list 'task 'review-theme-analysis review)
         'check-theme)))

(define (check-theme ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                       (escalate 'cloud-empty null))
      ((not (string? r))               (escalate 'cloud-garbled null))
      ((eq? r 'cloud-quota-exhausted)  (escalate 'cloud-quota null))
      ((eq? r 'cloud-consent-required) (escalate 'cloud-consent null))
      (else                            (next 'announce (ctx-set 'theme r ctx))))))

(define (announce ctx) (done))