FEAT: Implement Telegram Gateway and Channel-Aware Chat

skills/org-skill-chat.org

@@ -66,6 +66,8 @@ Interfaces for conversational event handling and UI integration. Source of truth
              (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 '(:telegram :TELEGRAM))
+                               (or (getf payload :chat-id) (getf proposed-action :chat-id)))
                           (and (member target '(:shell :SHELL))
                                (or (getf payload :cmd) (getf proposed-action :cmd)))
                           (member target '(:tool :TOOL))))
@@ -83,19 +85,26 @@ The Chat skill acts as the conversational UI. Because the ~org-agent~ kernel eva
   "Generates a conversational response, stripping system errors from context."
   (let* ((payload (getf context :payload))
          (raw-text (getf payload :text))
+         (channel (or (getf payload :channel) :emacs))
+         (chat-id (getf payload :chat-id))
          ;; 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.
+                           clean-text))
+         (reply-instruction 
+          (case channel
+            (:telegram (format nil "- To reply via Telegram: (:type :REQUEST :target :telegram :chat-id \"~a\" :text \"<Response>\")" chat-id))
+            (t "- To reply via Emacs: (:type :REQUEST :target :emacs :action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* <Response>\")"))))
+    (ask-neuro trimmed-text :system-prompt (concatenate 'string 
+                                                       "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 (...))")))
+" reply-instruction "
+- To use a tool: (:type :REQUEST :target :tool :action :call :tool \"<name>\" :args (...))"))))
 #+end_src
 
 * Registration