;;~ title    "Buyer sentiment watcher"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   pink
;;~ id       buyer-sentiment-watcher
;;~ trigger  event:new-buyer-message
;;~ touches  ()
;;~ summary  "Score the new buyer message for sentiment, surface anything heading negative."

;; On-device sentiment classifier. The score rides back as a symbol
;; ('positive / 'neutral / 'negative); only 'negative escalates the
;; thread to the operator with the message attached so a calmer human
;; can step in.

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

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

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

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

(define (announce ctx) (done))