PSF: Stabilizing workspace after crash. Valid kernel/skill fixes.
This commit is contained in:
@@ -79,10 +79,25 @@ Interfaces for AST inspection and intent-driven stimulus injection. Source of tr
|
||||
(t '(:type :LOG :payload (:text "Router failed to classify."))))))
|
||||
#+end_src
|
||||
|
||||
** Routing Logic
|
||||
#+begin_src lisp :tangle ../projects/org-skill-router/src/router-logic.lisp
|
||||
(defun trigger-skill-router (context)
|
||||
"Triggers on :user-command or :chat-message if no other skill handles it."
|
||||
(let* ((payload (getf context :payload))
|
||||
(sensor (getf payload :sensor)))
|
||||
(or (eq sensor :user-command)
|
||||
(eq sensor :chat-message))))
|
||||
|
||||
(defun neuro-skill-router (context)
|
||||
"Neural stage for intent classification."
|
||||
(let ((text (getf (getf context :payload) :text)))
|
||||
(ask-neuro text :system-prompt "You are the PSF Router. Decompose the user's request into atomic sub-agent calls. Return a Lisp plist.")))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
(defskill :skill-router
|
||||
:priority 90
|
||||
:priority 10
|
||||
:trigger #'trigger-skill-router
|
||||
:neuro #'neuro-skill-router
|
||||
:symbolic #'verify-skill-router)
|
||||
|
||||
Reference in New Issue
Block a user