;;~ title    "L0 · suggest tags"
;;~ author   "lacuna"
;;~ version  1
;;~ mode     automation
;;~ flavor   pink
;;~ id       l0-suggest-tags
;;~ touches  ()
;;~ summary  "Propose 13 tags from title + description."

;; Propose 13 tags from title + description.
;;
;; On-device Sakura. Architect-shape: act 'sakura/decide; named
;; result handler with type-trap on the model output.
;; The seed (listing context) rides in via ctx; the result is a
;; list of tag strings. Garbled output -> escalate ask-human;
;; never claim a thought she didn't have.

(cart 'l0-suggest-tags
  '((author    . "lacuna")
    (version   . 1)
    (read-only . #t)))

(define (start ctx)
  (let ((seed (ctx-get 'seed-text ctx)))
    (if (null? seed)
        (escalate 'missing-seed null)
        (next 'invoke-sakura ctx))))

(define (invoke-sakura ctx)
  (let ((seed (ctx-get 'seed-text ctx)))
    (act 'sakura/decide
         (list 'task 'suggest-tags seed)
         'check-tags-result)))

(define (check-tags-result ctx)
  (let ((r (ctx-result ctx)))
    (cond
      ((null? r)                       (escalate 'sakura-empty null))
      ((not (list? r))                 (escalate 'sakura-garbled null))
      ((zero? (length r))              (escalate 'sakura-empty null))
      ((> (length r) 13)               (escalate 'too-many-tags r))
      (else                            (next 'announce (ctx-set 'tags r ctx))))))

(define (announce ctx) (done))