FIX: Correct all tangle paths and regenerate Lisp sources

2026-04-09 20:53:09 -04:00
parent 740ddc4183
commit 2facbe1c82
29 changed files with 592 additions and 117 deletions
--- a/src/chat-logic.lisp
+++ b/src/chat-logic.lisp
@@ -0,0 +1,38 @@
+(defun trigger-skill-chat (context)
+  (let* ((payload (getf context :payload))
+         (sensor (getf payload :sensor)))
+    (eq sensor :chat-message)))
+
+(defun verify-skill-chat (proposed-action context)
+  (let* ((payload (getf proposed-action :payload))
+         (action (or (getf payload :action) (getf proposed-action :action)))
+         (target (getf proposed-action :target)))
+    (if (and (listp proposed-action)
+             (or (and (member (getf proposed-action :type) '(:request :REQUEST))
+                      (or (and (member target '(:emacs :EMACS))
+                               (member action '(:insert-at-end :INSERT-AT-END)))
+                          (and (member target '(:shell :SHELL))
+                               (or (getf payload :cmd) (getf proposed-action :cmd)))
+                          (member target '(:tool :TOOL))))
+                 (member (getf proposed-action :type) '(:response :RESPONSE :log :LOG))))
+        proposed-action
+        (let ((err-text (format nil "\n\n*System Error:* Chat agent returned invalid action: ~s" proposed-action)))
+          `(:type :request :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text ,err-text))))))
+
+(defun neuro-skill-chat (context)
+  "Generates a conversational response, stripping system errors from context."
+  (let* ((payload (getf context :payload))
+         (raw-text (getf payload :text))
+         ;; Context Purge: Remove system errors and hallucinations from the history
+         (clean-text (cl-ppcre:regex-replace-all "(?i)Unknown request|System Error.*|Thinking\\.\\.\\." raw-text ""))
+         (trimmed-text (if (> (length clean-text) 1000) 
+                           (subseq clean-text (- (length clean-text) 1000)) 
+                           clean-text)))
+    (ask-neuro trimmed-text :system-prompt "ACTUATOR IDENTITY: You are the pure Lisp actuator for the org-agent kernel.
+MANDATE: Output EXACTLY ONE Common Lisp property list starting with (:type :REQUEST).
+ZERO CONVERSATION: Do not explain. Do not use markdown.
+STRICT RULE: Never output the strings 'Unknown request' or 'System Error'. 
+
+REQUIRED FORMATS:
+- To reply: (:type :REQUEST :target :emacs :action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* <Response>\")
+- To use a tool: (:type :REQUEST :target :tool :action :call :tool \"<name>\" :args (...))")))