;;~ title    "Intent classifier"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   pink
;;~ id       intent-classifier
;;~ touches  ()
;;~ summary  "Route the user's message: shop / chat / control / relay."

;; Route the user's message: shop / chat / control / relay.
;;
;; Character loop. On-device Sakura only; never escalates to
;; cloud. The cart reads its seed from ctx and surfaces the
;; result back into the conversation via sakura/say or
;; sakura/decide. Calm voice, short, ~30 words.

(cart 'intent-classifier
  '((author    . "lacuna")
    (version   . 1)
    (read-only . #t)))

(define (start ctx)
  (let ((seed (ctx-get 'seed ctx)))
    (if (null? seed)
        (next 'invoke ctx)
        (next 'invoke ctx))))

(define (invoke ctx)
  (let ((seed (ctx-get 'seed ctx)))
    (act 'sakura/decide
         (list 'task 'intent-classifier seed)
         'check-result)))

(define (check-result ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                  (escalate 'sakura-empty null))
      ((eq? r 'rate-limited)      (after 5 'invoke ctx))
      (else                       (next 'announce (ctx-set 'output r ctx))))))

(define (announce ctx) (done))