RELEASE: OpenCortex v0.1.0 (The Autonomous Foundation)

- Audited Reactive Signal Pipeline.
- Finalized Unified Envelope & Provider-Agnosticism.
- Completed workspace cleanup and documentation.
- Hardened installer for VM/Docker deployment.

skills/org-skill-cli-gateway.org

@@ -24,7 +24,8 @@ The *CLI Gateway* is the primary sensory and actuating interface for human inter
 (defun execute-cli-action (action context)
   "Sends a framed message back to the connected CLI client."
   (let* ((payload (proto-get action :PAYLOAD))
-         (stream (proto-get context :REPLY-STREAM)))
+         (meta (getf context :meta))
+         (stream (getf meta :reply-stream)))
     (handler-case
         (if (and stream (open-stream-p stream))
             (progn

skills/org-skill-llm-gateway.org

@@ -122,12 +122,12 @@ The gateway utilizes a functional dispatch pattern. A single entry point, `execu
   "Queries an LLM provider via the unified gateway."
   ((:prompt :type :string :description "The user prompt.")
    (:system-prompt :type :string :description "The system instructions.")
-   (:provider :type :keyword :description "The provider. (Default: :openrouter)")
+   (:provider :type :keyword :description "Optional specific provider.")
    (:model :type :string :description "Optional specific model ID."))
   :body (lambda (args)
           (execute-llm-request (getf args :prompt) 
                                (or (getf args :system-prompt) "You are a helpful assistant.")
-                               :provider (or (getf args :provider) :openrouter)
+                               :provider (getf args :provider)
                                :model (getf args :model))))
 
 (defskill :skill-llm-gateway

skills/org-skill-scribe.org

@@ -144,13 +144,18 @@ The deterministic gate receives the list of proposed notes and writes them to th
 (defun verify-skill-scribe (action context)
   "Executes the note creation and marks source nodes as distilled."
   (declare (ignore context))
-  (when (and (listp action) (not (member (getf action :type) '(:LOG :EVENT))))
-    ;; Action is the list of note plists from the LLM
-    (scribe-commit-notes action)
-    (scribe-save-state)
-    (harness-log "SCRIBE: Distillation complete.")
-    ;; Return a log event to stop the loop
-    (list :type :LOG :payload (list :text "Distillation successful."))))
+  (let ((data (cond ((and (listp action) (eq (getf action :type) :REQUEST))
+                     (getf (getf action :payload) :payload))
+                    ((and (listp action) (not (member (getf action :type) '(:LOG :EVENT))))
+                     action)
+                    (t nil))))
+    (when data
+      (harness-log "SCRIBE: Committing ~a atomic notes..." (length data))
+      (scribe-commit-notes data)
+      (scribe-save-state)
+      (harness-log "SCRIBE: Distillation complete.")
+      ;; Return a log event to stop the loop
+      (list :type :LOG :payload (list :text "Distillation successful.")))))
 #+end_src
 
 ** Skill Registration