chore: Audit terminology (org-agent -> opencortex)

This commit is contained in:
2026-04-14 16:03:37 -04:00
parent 6608fb5553
commit c5d3d8c5fa
15 changed files with 43 additions and 43 deletions

View File

@@ -115,14 +115,14 @@ Interfaces for blueprint actuation and requirement perception. Source of truth i
(blueprint-content (or (getf payload :content) (getf action :content))))
(if (and note-path blueprint-content)
(progn
(org-agent:kernel-log "ARCHITECT - Appending PROTOCOL to ~a" note-path)
(opencortex:kernel-log "ARCHITECT - Appending PROTOCOL to ~a" note-path)
(with-open-file (out note-path :direction :output :if-exists :append)
(format out "~%* Phase B: Blueprint (PROTOCOL)~%:PROPERTIES:~%:STATUS: SIGNED~%:END:~%~%~a"
blueprint-content))
(org-agent:update-note-metadata note-path)
(opencortex:update-note-metadata note-path)
(format nil "SUCCESS - Architect established PROTOCOL in ~a" note-path))
(progn
(org-agent:kernel-log "ARCHITECT FAILURE - Missing path or content in action: ~a" action)
(opencortex:kernel-log "ARCHITECT FAILURE - Missing path or content in action: ~a" action)
nil))))
#+end_src

View File

@@ -32,7 +32,7 @@ Verify the system's stability and error-handling capabilities under stress.
** Chaos Injection Logic
#+begin_src lisp :tangle ../src/chaos-logic.lisp
(in-package :org-agent)
(in-package :opencortex)
(defun chaos-inject-error (sensor-type)
"Injects a synthetic error into a specific sensor pipeline."
@@ -113,7 +113,7 @@ The *Chaos Gauntlet* skill is designed to be non-invasive, running primarily in
;; Triggers the chaos skill.
(defun trigger-chaos (mode intensity)
"Triggers the chaos gauntlet with a specified mode and intensity."
(org-agent:inject-stimulus
(opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor :chaos-trigger :mode ,mode :intensity ,intensity))))
#+end_src
@@ -128,7 +128,7 @@ The *Chaos Gauntlet* skill is designed to be non-invasive, running primarily in
;; Injects a synthetic error into a specific sensor pipeline.
(defun chaos-inject-error (sensor-type error-message)
"Injects a specific synthetic error into a specific sensor."
(org-agent:inject-stimulus
(opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor ,sensor-type :error ,error-message))))
#+end_src
@@ -144,7 +144,7 @@ The *Chaos Gauntlet* skill is designed to be non-invasive, running primarily in
*Signature:*
`#+begin_src lisp
;; simulates a skip event (a full org-agent reboot)
;; simulates a skip event (a full opencortex reboot)
(defun chaos-force-skip-event ())
#+end_src

View File

@@ -21,7 +21,7 @@ Define the requirements for a modular, optimized, and fully documented Emacs env
** 2. User Needs
- *Modularity:* Split the monolithic `emacs.org` into functional modules (core, ui, gtd, ai, etc.).
- *Literate Mandate:* Every significant setting must be justified and explained in prose.
- *Integration:* Seamless connectivity with `org-agent`, `org-roam`, and `org-gtd`.
- *Integration:* Seamless connectivity with `opencortex`, `org-roam`, and `org-gtd`.
- *Bootstrapping:* Fast startup using `early-init.el` and lazy-loading.
** 3. Success Criteria

View File

@@ -16,7 +16,7 @@ The *Emacs Bridge Agent* is the primary sensory and motor interface to Emacs. It
:END:
** 1. Purpose
Define the transport layer for Org-Agent Communication Protocol (Harness Communication).
Define the transport layer for OpenCortex Communication Protocol (Harness Communication).
** 2. User Needs
- *Isolation:* Kernel remains transport-agnostic.
@@ -78,7 +78,7 @@ Interfaces for TCP I/O and protocol framing. Source of truth is the Harness Comm
(finish-output stream))
(error (c)
(kernel-log "BRIDGE - Lost client: ~a" stream)
(org-agent:unregister-emacs-client stream)))))
(opencortex:unregister-emacs-client stream)))))
(defun broadcast-to-emacs (action-plist context)
"Sends a framed message back to the client that sent the stimulus, or all clients if async."
@@ -87,14 +87,14 @@ Interfaces for TCP I/O and protocol framing. Source of truth is the Harness Comm
(stream-to-emacs stream action-plist)
(progn
(kernel-log "BRIDGE - Async broadcast to all clients...")
(bt:with-lock-held (org-agent:*clients-lock*)
(dolist (s org-agent:*emacs-clients*)
(bt:with-lock-held (opencortex:*clients-lock*)
(dolist (s opencortex:*emacs-clients*)
(stream-to-emacs s action-plist)))))))
#+end_src
* Registration
#+begin_src lisp
(org-agent:register-actuator :emacs #'broadcast-to-emacs)
(opencortex:register-actuator :emacs #'broadcast-to-emacs)
(defskill :skill-emacs-bridge
:priority 100

View File

@@ -30,8 +30,8 @@ Unify the system's diverse information silos into a single, navigable graph.
#+begin_src lisp :tangle projects/org-skill-hyper-graph/src/graph-logic.lisp
(defun hyper-graph-trace-lineage (object-id)
"Recursively follows #+ID and [[file:]] links to find related cross-modal nodes."
(let* ((obj (org-agent:lookup-object object-id))
(links (extract-all-org-links (org-agent:org-object-content obj))))
(let* ((obj (opencortex:lookup-object object-id))
(links (extract-all-org-links (opencortex:org-object-content obj))))
(kernel-log "MEMORY [Hyper-Graph] - Tracing lineage for ~a..." object-id)
(loop for link in links collect (resolve-hyper-link link))))
#+end_src

View File

@@ -38,7 +38,7 @@ Iterate through the inbox. Use Deterministic Engine (Symbolic) to identify the t
** Helper: Privacy & Archive Checks
#+begin_src lisp :tangle ../src/processor-logic.lisp
(in-package :org-agent)
(in-package :opencortex)
(defun inbox-is-private-p (tags)
(member "@personal" tags :test #'string-equal))
@@ -48,7 +48,7 @@ Iterate through the inbox. Use Deterministic Engine (Symbolic) to identify the t
** Neural Stage (Enrichment)
#+begin_src lisp :tangle ../src/processor-logic.lisp
(in-package :org-agent)
(in-package :opencortex)
(defun neuro-skill-inbox-processor (context)
(let* ((payload (getf context :payload))
(content (getf payload :content))
@@ -66,7 +66,7 @@ RULES:
** Symbolic Stage (The Physical Move)
#+begin_src lisp :tangle ../src/processor-logic.lisp
(in-package :org-agent)
(in-package :opencortex)
(defun inbox-process-logic (action context)
(declare (ignore action))
(let* ((payload (getf context :payload))
@@ -74,7 +74,7 @@ RULES:
(when (eq sensor :heartbeat)
(let* ((base-dir (or (uiop:getenv "MEMEX_DIR") "/home/user/memex/"))
(inbox-path (merge-pathnames "inbox.org" base-dir)))
(org-agent:harness-log "INBOX - Scanning ~a for migration..." (uiop:native-namestring inbox-path))
(opencortex:harness-log "INBOX - Scanning ~a for migration..." (uiop:native-namestring inbox-path))
;; Physical move logic would go here using Org AST parsing
'(:target :system :payload (:action :message :text "Inbox processing complete (Simulation)."))))))
#+end_src

View File

@@ -14,7 +14,7 @@ The *Latent Reflection* skill utilizes the idle cycles of the heartbeat to proac
** Package
#+begin_src lisp :tangle ../src/latent-reflection.lisp
(in-package :org-agent)
(in-package :opencortex)
#+end_src
** State
@@ -92,7 +92,7 @@ Find hidden connections, suggest new tags, or propose a new insight that bridges
~a
MANDATE: Output EXACTLY ONE Common Lisp property list starting with (:type :REQUEST).
Use the :emacs target and :insert-at-end action to write your reflection into the \"*org-agent-chat*\" buffer."
Use the :emacs target and :insert-at-end action to write your reflection into the \"*opencortex-chat*\" buffer."
context-string)))
:symbolic (lambda (action ctx)
(declare (ignore ctx))

View File

@@ -37,7 +37,7 @@ Uses a "JSON Bridge" over standard I/O. The Lisp kernel executes a standalone Py
** Package Context
#+begin_src lisp :tangle ../src/playwright.lisp
(in-package :org-agent)
(in-package :opencortex)
#+end_src
** Bridge Script Path

View File

@@ -34,7 +34,7 @@ Eliminate speculative debugging through rigorous scientific methodology.
(let* ((payload (getf context :payload))
(failure-log (getf payload :text))
(project (getf payload :project)))
(org-agent:ask-neuro
(opencortex:ask-neuro
(format nil "Project ~a failed with log: ~a. Formulate a 'Theory of Failure' and suggest a surgical fix." project failure-log)
:system-prompt "You are a PSF Senior Debugging Scientist. Return a Lisp plist: (:target :scientist :action :propose :hypothesis \"...\" :failure-log \"...\")")))
@@ -44,8 +44,8 @@ Eliminate speculative debugging through rigorous scientific methodology.
(let* ((payload (getf action :payload))
(hypothesis (getf payload :hypothesis))
(failure-log (getf payload :failure-log)))
(org-agent:kernel-log "SCIENTIST - Hypothesis formulated. Triggering SELF-FIX...")
(org-agent:inject-stimulus
(opencortex:kernel-log "SCIENTIST - Hypothesis formulated. Triggering SELF-FIX...")
(opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor :repair-request :hypothesis ,hypothesis :failure-log ,failure-log)))
(format nil "SUCCESS - Scientist proposed fix for failure.")))
#+end_src

View File

@@ -34,17 +34,17 @@ Automate the extraction of root causes and architectural learnings into the Meme
(let* ((payload (getf failure-context :payload))
(error-msg (getf payload :text))
(timestamp (local-time:format-timestring nil (local-time:now)))
(gitea-url (org-agent::get-env "GITEA_URL")))
(org-agent:ask-neuro
(gitea-url (opencortex::get-env "GITEA_URL")))
(opencortex:ask-neuro
(format nil "Create a Root Cause Analysis (RCA) note for the following error: ~a" error-msg)
:system-prompt "You are the PSF Scribe. Extract the deep architectural failure and propose a new invariant for SOUL.org.")))
(defun scribe-rca-commit (rca-note)
"Commits the drafted RCA note to the Gitea repository."
(let ((gitea-url (org-agent::get-env "GITEA_URL")))
(let ((gitea-url (opencortex::get-env "GITEA_URL")))
(kernel-log "SCRIBE - Committing learning to Gitea: ~a" gitea-url)
;; Logic to use 'git commit' via shell-actuator
(org-agent:spawn-task (format nil "Commit this RCA note to Gitea: ~a" rca-note))))
(opencortex:spawn-task (format nil "Commit this RCA note to Gitea: ~a" rca-note))))
#+end_src
* Registration

View File

@@ -65,7 +65,7 @@ Uses a weekly heartbeat trigger. Employs a "Compiler" approach: Probabilistic En
(defun scribe-filter-personal (org-ast-node)
"Recursively strips out any headline or content tagged with @personal.
This runs strictly in Deterministic Engine BEFORE any data is passed to Probabilistic Engine."
(let ((tags (getf (org-agent:org-object-attributes org-ast-node) :TAGS)))
(let ((tags (getf (opencortex:org-object-attributes org-ast-node) :TAGS)))
(when (not (member "@personal" tags :test #'string=))
org-ast-node)))
#+end_src

View File

@@ -51,18 +51,18 @@ Interfaces for background verification and kernel alerting. Source of truth is t
(let* ((projects-dir (or (uiop:getenv "PROJECTS_DIR") "projects/"))
(project-dir (format nil "~aorg-skill-~a/" projects-dir project-name))
(test-file (format nil "~atests/test-suite.lisp" project-dir)))
(org-agent:kernel-log "CI - Running tests for ~a..." project-name)
(opencortex:kernel-log "CI - Running tests for ~a..." project-name)
(if (uiop:file-exists-p test-file)
(multiple-value-bind (output error-output exit-code)
(uiop:run-program (list "sbcl" "--batch" "--load" test-file "--eval" "(uiop:quit)")
:ignore-error-status t :output :string :error-output :string)
(if (= exit-code 0)
(org-agent:kernel-log "CI SUCCESS - ~a passed all tests." project-name)
(opencortex:kernel-log "CI SUCCESS - ~a passed all tests." project-name)
(progn
(org-agent:kernel-log "CI FAILURE - ~a failed tests with exit code ~a" project-name exit-code)
(org-agent:inject-stimulus
(opencortex:kernel-log "CI FAILURE - ~a failed tests with exit code ~a" project-name exit-code)
(opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor :test-failure :project ,project-name :text ,output :stderr ,error-output))))))
(org-agent:kernel-log "CI ERROR - No test suite found for ~a at ~a" project-name test-file))))
(opencortex:kernel-log "CI ERROR - No test suite found for ~a at ~a" project-name test-file))))
#+end_src
* Registration

View File

@@ -116,7 +116,7 @@ Interfaces for TDD suite actuation and protocol perception. Source of truth is t
(test-dir (format nil "~atests/" project-dir))
(test-path (format nil "~atests/test-suite.lisp" project-dir)))
(org-agent:kernel-log "ANALYST - Actuating TDD Suite for ~a" project-name)
(opencortex:kernel-log "ANALYST - Actuating TDD Suite for ~a" project-name)
(ensure-directories-exist test-dir)
(with-open-file (out test-path :direction :output :if-exists :supersede)
(format out ";;; TDD Suite for ~a~%~a" project-name test-content))

View File

@@ -31,7 +31,7 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
*** Routing and Pain Management
#+begin_src lisp :tangle ../src/accountant-logic.lisp
(in-package :org-agent)
(in-package :opencortex)
(defvar *provider-pain-table* (make-hash-table :test 'equal))
@@ -54,7 +54,7 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
(defun token-accountant-get-model-for-provider (provider &optional context)
"Returns the recommended model for the provider, prioritizing free/subsidized models. Updated April 2026."
(let ((complexity (ignore-errors (uiop:symbol-call :org-agent.skills.org-skill-router :router-classify-complexity context))))
(let ((complexity (ignore-errors (uiop:symbol-call :opencortex.skills.org-skill-router :router-classify-complexity context))))
(case provider
(:openrouter
(case complexity
@@ -71,8 +71,8 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
(defun token-accountant-patch-kernel ()
"Hot-patches the harness's cascade and model selector to use our dynamic logic."
(setf org-agent:*provider-cascade* #'token-accountant-get-cascade)
(setf org-agent::*model-selector-fn* #'token-accountant-get-model-for-provider))
(setf opencortex:*provider-cascade* #'token-accountant-get-cascade)
(setf opencortex::*model-selector-fn* #'token-accountant-get-model-for-provider))
#+end_src
* Registration

View File

@@ -45,7 +45,7 @@ const stealth = require('puppeteer-extra-plugin-stealth')();
chromium.use(stealth);
async function askGemini(prompt) {
const browser = await chromium.launchPersistentContext('/home/user/.local/share/org-agent/browser-profile', {
const browser = await chromium.launchPersistentContext('/home/user/.local/share/opencortex/browser-profile', {
headless: true,
args: ['--disable-blink-features=AutomationControlled']
});
@@ -92,7 +92,7 @@ async function loginGemini() {
console.log("Opening browser for manual Google login...");
console.log("Please log in, pass any captchas, wait for the Gemini chat interface to load, and then close the browser window.");
const browser = await chromium.launchPersistentContext('/home/user/.local/share/org-agent/browser-profile', {
const browser = await chromium.launchPersistentContext('/home/user/.local/share/opencortex/browser-profile', {
headless: false,
args: ['--disable-blink-features=AutomationControlled']
});
@@ -110,7 +110,7 @@ loginGemini().catch(err => {
#+end_src
#+begin_src lisp :tangle ../projects/org-skill-web-research/src/research-logic.lisp
(in-package :org-agent)
(in-package :opencortex)
(defun ask-gemini-web (prompt)
"Calls the Playwright stealth bridge to interact with Gemini Web UI via a persistent profile."