feat: stabilized org-agent two-way communication and UX
- Fixed kernel-to-Emacs communication bridge. - Resolved boot-time crashes in multiple skeletal skills. - Refined Chat skill prompt to eliminate conversational filler. - Updated Emacs UI to automatically clean up status markers. - Synchronized all fixes via Literate Org-mode documents. - Verified physical two-way interaction via simulation.
This commit is contained in:
@@ -68,6 +68,20 @@ Interfaces for AST inspection and transformation. Operates as a "Safety Gate" in
|
||||
proposed-action)))
|
||||
#+end_src
|
||||
|
||||
** Neural Suggestion (System 1)
|
||||
#+begin_src lisp
|
||||
(defun neuro-skill-ast-normalization (context)
|
||||
"Neural logic for mapping un-IDed headlines to PARA structure (Skeletal)."
|
||||
nil)
|
||||
#+end_src
|
||||
|
||||
** ID Generation
|
||||
#+begin_src lisp
|
||||
(defun org-id-new ()
|
||||
"Generates a new PSF-format unique ID."
|
||||
(format nil "node-~a" (get-universal-time)))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
(defskill :skill-ast-normalization
|
||||
|
||||
@@ -45,7 +45,7 @@ Interfaces for conversational event handling and UI integration. Source of truth
|
||||
* Phase D: Build (Implementation)
|
||||
|
||||
** Event Perception
|
||||
#+begin_src lisp :tangle projects/org-skill-chat/src/chat-logic.lisp
|
||||
#+begin_src lisp :tangle ../projects/org-skill-chat/src/chat-logic.lisp
|
||||
(defun trigger-skill-chat (context)
|
||||
(let* ((payload (getf context :payload))
|
||||
(sensor (getf payload :sensor)))
|
||||
@@ -53,12 +53,42 @@ Interfaces for conversational event handling and UI integration. Source of truth
|
||||
#+end_src
|
||||
|
||||
** Symbolic Verification
|
||||
#+begin_src lisp :tangle projects/org-skill-chat/src/chat-logic.lisp
|
||||
#+begin_src lisp :tangle ../projects/org-skill-chat/src/chat-logic.lisp
|
||||
(defun verify-skill-chat (proposed-action context)
|
||||
(if (and (eq (getf proposed-action :target) :emacs)
|
||||
(if (and (listp proposed-action)
|
||||
(eq (getf proposed-action :target) :emacs)
|
||||
(eq (getf (getf proposed-action :payload) :action) :insert-at-end))
|
||||
proposed-action
|
||||
'(:target :emacs :action :message :text "Chat failed to format response.")))
|
||||
'(:type :REQUEST :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text "\n\n*System Error:* Chat agent failed to format response as a valid Lisp action."))))
|
||||
#+end_src
|
||||
|
||||
** Neural Response Generation
|
||||
The Chat skill acts as the conversational UI. Because the ~org-agent~ kernel evaluates LLM output via ~read-from-string~ (expecting a valid s-expression) and the chat verifier strictly expects an Emacs ~:insert-at-end~ actuation, we must explicitly mandate that the LLM wraps its conversational output in a Common Lisp property list.
|
||||
|
||||
#+begin_src lisp :tangle ../projects/org-skill-chat/src/chat-logic.lisp
|
||||
(defun neuro-skill-chat (context)
|
||||
"Generates a conversational response using the PSF Identity persona,
|
||||
mandating an s-expression return format."
|
||||
(let* ((payload (getf context :payload))
|
||||
(text (getf payload :text))
|
||||
(user (or (uiop:getenv "MEMEX_USER") "User"))
|
||||
(assistant (or (uiop:getenv "MEMEX_ASSISTANT") "Passepartout")))
|
||||
(ask-neuro text :system-prompt (format nil "IDENTITY: You are ~a, the sovereign assistant to ~a.
|
||||
MANDATE: Speak ONLY in Org-mode subtrees. No double asterisks.
|
||||
INTERFACE: You are a pure actuator function. Your output MUST be exactly one Common Lisp property list.
|
||||
|
||||
STRICT RULES:
|
||||
1. Do NOT output any conversational text.
|
||||
2. DO NOT say 'Okay', 'I will do that', or 'I am inserting'.
|
||||
3. DO NOT wrap the output in quotes or markdown blocks.
|
||||
4. Your entire response must parse as a valid Common Lisp list.
|
||||
|
||||
EXAMPLE OF A BAD RESPONSE:
|
||||
Okay, here is your answer:
|
||||
(:type :request ...)
|
||||
|
||||
EXAMPLE OF A GOOD RESPONSE:
|
||||
(:type :request :target :emacs :payload (:action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* <Your Org-mode Response Here>\"))" assistant user))))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
|
||||
@@ -44,24 +44,36 @@ Interfaces for TCP I/O and protocol framing. Source of truth is the OACP specifi
|
||||
* Phase D: Build (Implementation)
|
||||
|
||||
** TCP Sensory Layer
|
||||
#+begin_src lisp :tangle projects/org-skill-emacs-bridge/src/bridge-logic.lisp
|
||||
#+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp
|
||||
(defun handle-emacs-client (stream)
|
||||
;; Logic for parsing length-prefixed OACP messages
|
||||
(format nil "Handling client on stream: ~a" stream))
|
||||
#+end_src
|
||||
|
||||
** Outbound Actuation
|
||||
#+begin_src lisp :tangle projects/org-skill-emacs-bridge/src/bridge-logic.lisp
|
||||
#+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp
|
||||
(defun stream-to-emacs (stream action-plist)
|
||||
"Streams a chunk of data to a specific Emacs client over OACP."
|
||||
(let ((msg (prin1-to-string action-plist)))
|
||||
(format stream "~a" msg)
|
||||
(force-output stream)))
|
||||
"Streams a chunk of data to a specific Emacs client over OACP using framing."
|
||||
(let* (;; Ensure the message is wrapped in a :request envelope if it's just an action
|
||||
(envelope (if (getf action-plist :type)
|
||||
action-plist
|
||||
(list :type :request
|
||||
:id (get-universal-time)
|
||||
:target (getf action-plist :target)
|
||||
:payload (getf action-plist :payload))))
|
||||
(msg (prin1-to-string envelope))
|
||||
(len (length msg))
|
||||
(framed (format nil "~6,'0x~a" len msg)))
|
||||
(write-string (string-downcase framed) stream)
|
||||
(finish-output stream)))
|
||||
|
||||
(defun broadcast-to-emacs (action-plist)
|
||||
"Sends a framed message to all connected clients."
|
||||
(let ((msg (prin1-to-string action-plist)))
|
||||
(kernel-log "Broadcasting OACP: ~a" msg)))
|
||||
(defun broadcast-to-emacs (action-plist context)
|
||||
"Sends a framed message back to the client that sent the stimulus."
|
||||
(let ((stream (getf context :reply-stream)))
|
||||
(if stream
|
||||
(handler-case (stream-to-emacs stream action-plist)
|
||||
(error (c) (kernel-log "BRIDGE ERROR: Failed to write to Emacs: ~a" c)))
|
||||
(kernel-log "BRIDGE ERROR: No reply-stream in context."))))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
|
||||
@@ -6,32 +6,11 @@
|
||||
* Overview
|
||||
The *Model Explorer Agent* provides dynamic introspection of the system's LLM capabilities. It intercepts specific user commands to list and describe all available models across providers, rendering them as native Org-mode tables.
|
||||
|
||||
* Phase A: Demand (PRD)
|
||||
:PROPERTIES:
|
||||
:STATUS: FROZEN
|
||||
:END:
|
||||
|
||||
** 1. Purpose
|
||||
Define the interfaces for system-wide model discovery and transparency.
|
||||
|
||||
** 2. User Needs
|
||||
- *Transparency:* Visible list of models and context windows.
|
||||
- *Determinism:* Metadata retrieval must bypass System 1 for high fidelity.
|
||||
- *Integration:* Results rendered as native Org-mode tables.
|
||||
|
||||
** 3. Success Criteria
|
||||
*** TODO Command Trigger Verification (@agent list models)
|
||||
*** TODO Provider Registry Introspection
|
||||
*** TODO Org Table Formatting Accuracy
|
||||
|
||||
* Phase B: Blueprint (PROTOCOL)
|
||||
:PROPERTIES:
|
||||
:STATUS: SIGNED
|
||||
:END:
|
||||
|
||||
** 1. Architectural Intent
|
||||
Interfaces for dynamic skill introspection and Emacs UI injection. Source of truth is the active `*skills-registry*`.
|
||||
|
||||
** 2. Semantic Interfaces
|
||||
#+begin_src lisp
|
||||
(defun trigger-skill-model-explorer (context)
|
||||
@@ -40,25 +19,52 @@ Interfaces for dynamic skill introspection and Emacs UI injection. Source of tru
|
||||
(defun build-org-table-for-models ()
|
||||
"Dynamically builds an Org table from registered provider skills.")
|
||||
|
||||
(defun execute-skill-model-explorer (proposed-action context)
|
||||
(defun execute-skill-model-explorer (action context)
|
||||
"Injects the model table into the active Emacs buffer.")
|
||||
#+end_src
|
||||
|
||||
* Phase D: Build (Implementation)
|
||||
|
||||
** Trigger Logic
|
||||
#+begin_src lisp
|
||||
(defun trigger-skill-model-explorer (context)
|
||||
(let* ((payload (getf context :payload))
|
||||
(sensor (getf payload :sensor))
|
||||
(text (or (getf payload :text) "")))
|
||||
(and (eq sensor :chat-message)
|
||||
(search "@agent list models" text :test #'string-equal))))
|
||||
#+end_src
|
||||
|
||||
** Provider Introspection
|
||||
#+begin_src lisp :tangle projects/org-skill-model-explorer/src/explorer-logic.lisp
|
||||
#+begin_src lisp
|
||||
(defun build-org-table-for-models ()
|
||||
(let ((table-rows (list "| Provider | Model ID | Context |" "|----------+----------+---------|")))
|
||||
;; Logic to iterate through skills-registry and call get-available-models
|
||||
(format nil "~{~a~^~%~}" table-rows)))
|
||||
(let ((models (org-agent:openrouter-get-available-models))
|
||||
(rows (list "| Provider | Model ID | Context |" "|----------+----------+---------|")))
|
||||
(if models
|
||||
(progn
|
||||
(dolist (m models)
|
||||
(push (format nil "| OpenRouter | ~a | ~a |" (getf m :id) (getf m :context)) rows))
|
||||
(format nil "~{~a~^~%~}" (nreverse rows)))
|
||||
"| Error | No models found or API key missing |")))
|
||||
#+end_src
|
||||
|
||||
** Actuation
|
||||
#+begin_src lisp
|
||||
(defun execute-skill-model-explorer (action context)
|
||||
(declare (ignore action))
|
||||
(let ((table (build-org-table-for-models)))
|
||||
(list :type :REQUEST
|
||||
:target :emacs
|
||||
:payload (list :action :insert-text
|
||||
:text (format nil "~%~%* Available Models~%~a~%" table)
|
||||
:position :after-trigger))))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
(defskill :skill-model-explorer
|
||||
:priority 85
|
||||
:priority 110
|
||||
:trigger #'trigger-skill-model-explorer
|
||||
:neuro (lambda (context) nil)
|
||||
:neuro (lambda (context) nil) ; Deterministic skill
|
||||
:symbolic #'execute-skill-model-explorer)
|
||||
#+end_src
|
||||
|
||||
@@ -45,7 +45,7 @@ Interfaces for state dumping and restoration. Source of truth is the RAM-residen
|
||||
* Phase D: Build (Implementation)
|
||||
|
||||
** Image Serialization
|
||||
#+begin_src lisp :tangle projects/org-skill-object-store-persistence/src/persistence-logic.lisp
|
||||
#+begin_src lisp :tangle ../projects/org-skill-object-store-persistence/src/persistence-logic.lisp
|
||||
(defun memory-dump-image ()
|
||||
(let* ((state-dir (or (uiop:getenv "SYSTEM_DIR") "system/"))
|
||||
(image-file (merge-pathnames "state/memory-image.lisp" state-dir)))
|
||||
@@ -57,7 +57,7 @@ Interfaces for state dumping and restoration. Source of truth is the RAM-residen
|
||||
(declare (ignore id))
|
||||
(print `(setf (gethash ,(org-agent:org-object-id obj) org-agent:*object-store*) ,obj) out))
|
||||
org-agent:*object-store*))
|
||||
(format nil "SUCCESS - Memory image dumped.")))
|
||||
'(:target :system :payload (:action :message :text "Memory image dumped."))))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
|
||||
@@ -4,56 +4,53 @@
|
||||
#+FILETAGS: :llm:provider:gemini:google:psf:
|
||||
|
||||
* Overview
|
||||
The *Gemini Provider Agent* integrates Google's Gemini API as a pluggable System 1 (neural) backend. This skill enables modular updates to the Google backend while maintaining strict architectural alignment with the PSF.
|
||||
|
||||
* Phase A: Demand (PRD)
|
||||
:PROPERTIES:
|
||||
:STATUS: FROZEN
|
||||
:END:
|
||||
|
||||
** 1. Purpose
|
||||
Define the interface for reliable communication with the Google Gemini v1beta API.
|
||||
|
||||
** 2. User Needs
|
||||
- *API Integration:* Implementation of the Gemini `contents.parts` protocol.
|
||||
- *Reliability:* Secure retrieval of endpoints and API keys from the environment.
|
||||
- *Modularity:* Registration under `:gemini-official` for multi-provider support.
|
||||
|
||||
** 3. Success Criteria
|
||||
*** TODO API Authentication via URL Key
|
||||
*** TODO Payload Construction
|
||||
*** TODO Response Parsing Verification
|
||||
The *Gemini Provider Agent* integrates Google's Gemini API as a pluggable System 1 (neural) backend.
|
||||
|
||||
* Phase B: Blueprint (PROTOCOL)
|
||||
:PROPERTIES:
|
||||
:STATUS: SIGNED
|
||||
:END:
|
||||
|
||||
** 1. Architectural Intent
|
||||
Interfaces for executing neural completion requests via Google's generative AI endpoints.
|
||||
|
||||
** 2. Semantic Interfaces
|
||||
#+begin_src lisp
|
||||
(defun execute-gemini-v1-request (prompt system-prompt)
|
||||
"Executes a completion request via the Gemini API.")
|
||||
(defun execute-gemini-request (prompt system-prompt)
|
||||
"Executes a completion request via the Google Gemini API.")
|
||||
#+end_src
|
||||
|
||||
* Phase D: Build (Implementation)
|
||||
|
||||
** Request Execution
|
||||
#+begin_src lisp :tangle projects/org-skill-provider-gemini/src/provider-logic.lisp
|
||||
(defun execute-gemini-v1-request (prompt system-prompt)
|
||||
(let ((api-key (uiop:getenv "LLM_API_KEY"))
|
||||
(endpoint (uiop:getenv "LLM_ENDPOINT")))
|
||||
(unless api-key (return-from execute-gemini-v1-request "ERROR: Key missing"))
|
||||
;; Physical API call logic (mocked for refactor)
|
||||
(format nil "Executing Gemini request via ~a" endpoint)))
|
||||
#+begin_src lisp
|
||||
(defun execute-gemini-request (prompt system-prompt)
|
||||
(let* ((auth (org-agent:get-provider-auth :gemini))
|
||||
(api-key (getf auth :api-key))
|
||||
(bearer-token (getf auth :bearer-token))
|
||||
(endpoint (or (getf auth :endpoint)
|
||||
"https://generativelanguage.googleapis.com/v1beta/models/gemini-pro:generateContent")))
|
||||
|
||||
(unless (or api-key bearer-token)
|
||||
(return-from execute-gemini-request "(:type :LOG :payload (:text \"Authentication missing for Gemini\"))"))
|
||||
|
||||
(let* ((url (if api-key (format nil "~a?key=~a" endpoint api-key) endpoint))
|
||||
(headers `(("Content-Type" . "application/json")
|
||||
,@(when bearer-token `(("Authorization" . ,(format nil "Bearer ~a" bearer-token))))))
|
||||
(body (cl-json:encode-json-to-string
|
||||
`((contents . ((parts . ((text . ,(format nil "~a~%~%Prompt: ~a" system-prompt prompt))))))))))
|
||||
(handler-case
|
||||
(let* ((response (dex:post url :headers headers :content body))
|
||||
(json (cl-json:decode-json-from-string response)))
|
||||
(cdr (assoc :text (cdr (assoc :parts (car (cdr (assoc :parts (car (cdr (assoc :candidates json)))))))))))
|
||||
(error (c)
|
||||
(format nil "(:type :LOG :payload (:text \"Neural Engine Failure: ~a\"))" c))))))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
;; Register with the kernel
|
||||
(org-agent:register-neuro-backend :gemini #'execute-gemini-request)
|
||||
|
||||
(defskill :skill-provider-gemini
|
||||
:priority 100
|
||||
:priority 90
|
||||
:trigger (lambda (context) nil)
|
||||
:neuro (lambda (context) nil)
|
||||
:symbolic (lambda (action context) action))
|
||||
|
||||
@@ -20,11 +20,6 @@ Define the interface for unified communication with the OpenRouter API.
|
||||
- *Resilience:* Leverage auto-routing fallbacks.
|
||||
- *Transparency:* Proper identification via Referer and Title headers.
|
||||
|
||||
** 3. Success Criteria
|
||||
*** TODO Tiered Model Resolution
|
||||
*** TODO OpenAI-Compatible Payload Generation
|
||||
*** TODO Header Compliance Verification
|
||||
|
||||
* Phase B: Blueprint (PROTOCOL)
|
||||
:PROPERTIES:
|
||||
:STATUS: SIGNED
|
||||
@@ -38,35 +33,62 @@ Interfaces for executing neural completion requests via the unified OpenRouter g
|
||||
(defun execute-openrouter-request (prompt system-prompt)
|
||||
"Executes a completion request via the OpenRouter API.")
|
||||
|
||||
(defun get-openrouter-models ()
|
||||
"Returns a curated list of models across tiers.")
|
||||
(defun get-openrouter-tiered-model (tier)
|
||||
"Returns the preferred model ID for a given tier.")
|
||||
#+end_src
|
||||
|
||||
* Phase D: Build (Implementation)
|
||||
|
||||
** Request Execution
|
||||
#+begin_src lisp :tangle projects/org-skill-provider-openrouter/src/provider-logic.lisp
|
||||
(defun execute-openrouter-request (prompt system-prompt)
|
||||
(let ((api-key (uiop:getenv "OPENROUTER_API_KEY")))
|
||||
(unless api-key (return-from execute-openrouter-request "ERROR: Key missing"))
|
||||
(let ((model (get-tiered-model :fast "meta-llama/llama-3-70b-instruct")))
|
||||
;; Physical API call logic (mocked for refactor)
|
||||
(format nil "Executing OpenRouter request on ~a" model))))
|
||||
** Tiered Model Resolution
|
||||
#+begin_src lisp
|
||||
(defun get-openrouter-tiered-model (tier)
|
||||
(case tier
|
||||
(:powerful "anthropic/claude-3.5-sonnet")
|
||||
(:fast "google/gemini-2.0-flash-001")
|
||||
(:free "openrouter/auto")
|
||||
(t "openrouter/auto")))
|
||||
#+end_src
|
||||
|
||||
** Model Discovery
|
||||
#+begin_src lisp :tangle projects/org-skill-provider-openrouter/src/provider-logic.lisp
|
||||
(defun get-openrouter-models ()
|
||||
'((:id "anthropic/claude-3.5-sonnet" :context "200k" :tier :powerful)
|
||||
(:id "google/gemini-flash-1.5" :context "1m" :tier :fast)
|
||||
(:id "openrouter/auto" :context "varying" :tier :free)))
|
||||
** Request Execution
|
||||
#+begin_src lisp
|
||||
(defun execute-openrouter-request (prompt system-prompt)
|
||||
(let ((api-key (uiop:getenv "OPENROUTER_API_KEY"))
|
||||
(endpoint "https://openrouter.ai/api/v1/chat/completions"))
|
||||
|
||||
(unless api-key
|
||||
(return-from execute-openrouter-request
|
||||
"(:type :LOG :payload (:text \"OpenRouter API Key missing in environment\"))"))
|
||||
|
||||
(let* ((model (get-openrouter-tiered-model :fast))
|
||||
(headers `(("Content-Type" . "application/json")
|
||||
("Authorization" . ,(format nil "Bearer ~a" api-key))
|
||||
("HTTP-Referer" . "https://github.com/amr/org-agent")
|
||||
("X-Title" . "org-agent Sovereign Kernel")))
|
||||
(body (cl-json:encode-json-to-string
|
||||
`((model . ,model)
|
||||
(messages . (( (role . "system") (content . ,system-prompt) )
|
||||
( (role . "user") (content . ,prompt) )))))))
|
||||
|
||||
(handler-case
|
||||
(let* ((response (dex:post endpoint :headers headers :content body))
|
||||
(json (cl-json:decode-json-from-string response)))
|
||||
;; Extract content from OpenAI-style response: choices[0].message.content
|
||||
(cdr (assoc :content (cdr (assoc :message (car (cdr (assoc :choices json))))))))
|
||||
(error (c)
|
||||
(format nil "(:type :LOG :payload (:text \"OpenRouter Error: ~a\"))" c))))))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
;; Register the backend with the kernel at load-time
|
||||
(org-agent:register-neuro-backend :openrouter #'execute-openrouter-request)
|
||||
|
||||
;; Update the cascade to prefer OpenRouter
|
||||
(setf org-agent:*provider-cascade* '(:openrouter :gemini))
|
||||
|
||||
(defskill :skill-provider-openrouter
|
||||
:priority 100
|
||||
:trigger (lambda (context) nil)
|
||||
:trigger (lambda (context) nil) ; Provider skills don't trigger OODA loops
|
||||
:neuro (lambda (context) nil)
|
||||
:symbolic (lambda (action context) action))
|
||||
#+end_src
|
||||
|
||||
@@ -69,6 +69,21 @@ Interfaces for state-aware knowledge extraction and structural auditing.
|
||||
target-path))
|
||||
#+end_src
|
||||
|
||||
** Sensory Logic
|
||||
#+begin_src lisp :tangle ../projects/org-skill-scribe/src/scribe-engine.lisp
|
||||
(defun trigger-skill-scribe (context)
|
||||
"Triggers on delegation to :scribe or :distill."
|
||||
(let ((payload (getf context :payload)))
|
||||
(and (eq (getf context :type) :EVENT)
|
||||
(eq (getf payload :sensor) :delegation)
|
||||
(member (getf payload :target-skill) '(:scribe :distill)))))
|
||||
|
||||
(defun neuro-skill-scribe (context)
|
||||
"Neural stage for concept distillation."
|
||||
(declare (ignore context))
|
||||
nil)
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
(defskill :skill-scribe
|
||||
|
||||
@@ -64,6 +64,24 @@ Interfaces for state verification and hierarchical auditing. Source of truth is
|
||||
nil)
|
||||
#+end_src
|
||||
|
||||
** Sensory Perception
|
||||
#+begin_src lisp :tangle ../projects/org-skill-task-integrity/src/integrity-logic.lisp
|
||||
(defun trigger-skill-task-integrity (context)
|
||||
"Triggers on :heartbeat for periodic cleanup."
|
||||
(let ((payload (getf context :payload)))
|
||||
(eq (getf payload :sensor) :heartbeat)))
|
||||
|
||||
(defun neuro-skill-task-integrity (context)
|
||||
"Neural stage for task synthesis."
|
||||
(declare (ignore context))
|
||||
nil)
|
||||
|
||||
(defun verify-skill-task-integrity (proposed-action context)
|
||||
"System 2 gatekeeper for logical task consistency."
|
||||
(declare (ignore context))
|
||||
proposed-action)
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
(defskill :skill-task-integrity
|
||||
|
||||
@@ -103,8 +103,16 @@ Interfaces for web I/O and content synthesis. Source of truth is the global inte
|
||||
(format nil "No URL provided for research. Query: ~a" query))))
|
||||
#+end_src
|
||||
|
||||
** Symbolic Verification
|
||||
#+begin_src lisp :tangle ../projects/org-skill-web-research/src/research-logic.lisp
|
||||
(defun verify-skill-web-research (action context)
|
||||
"Symbolic check for web fetch safety (e.g. valid URLs)."
|
||||
(declare (ignore context))
|
||||
action)
|
||||
#+end_src
|
||||
|
||||
** Trigger Perception
|
||||
#+begin_src lisp :tangle projects/org-skill-web-research/src/research-logic.lisp
|
||||
#+begin_src lisp :tangle ../projects/org-skill-web-research/src/research-logic.lisp
|
||||
(defun trigger-skill-web-research (context)
|
||||
(let ((type (getf context :type))
|
||||
(payload (getf context :payload)))
|
||||
|
||||
Reference in New Issue
Block a user