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)))) (blueprint-content (or (getf payload :content) (getf action :content))))
(if (and note-path blueprint-content) (if (and note-path blueprint-content)
(progn (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) (with-open-file (out note-path :direction :output :if-exists :append)
(format out "~%* Phase B: Blueprint (PROTOCOL)~%:PROPERTIES:~%:STATUS: SIGNED~%:END:~%~%~a" (format out "~%* Phase B: Blueprint (PROTOCOL)~%:PROPERTIES:~%:STATUS: SIGNED~%:END:~%~%~a"
blueprint-content)) 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)) (format nil "SUCCESS - Architect established PROTOCOL in ~a" note-path))
(progn (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)))) nil))))
#+end_src #+end_src

View File

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

View File

@@ -21,7 +21,7 @@ Define the requirements for a modular, optimized, and fully documented Emacs env
** 2. User Needs ** 2. User Needs
- *Modularity:* Split the monolithic `emacs.org` into functional modules (core, ui, gtd, ai, etc.). - *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. - *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. - *Bootstrapping:* Fast startup using `early-init.el` and lazy-loading.
** 3. Success Criteria ** 3. Success Criteria

View File

@@ -16,7 +16,7 @@ The *Emacs Bridge Agent* is the primary sensory and motor interface to Emacs. It
:END: :END:
** 1. Purpose ** 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 ** 2. User Needs
- *Isolation:* Kernel remains transport-agnostic. - *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)) (finish-output stream))
(error (c) (error (c)
(kernel-log "BRIDGE - Lost client: ~a" stream) (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) (defun broadcast-to-emacs (action-plist context)
"Sends a framed message back to the client that sent the stimulus, or all clients if async." "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) (stream-to-emacs stream action-plist)
(progn (progn
(kernel-log "BRIDGE - Async broadcast to all clients...") (kernel-log "BRIDGE - Async broadcast to all clients...")
(bt:with-lock-held (org-agent:*clients-lock*) (bt:with-lock-held (opencortex:*clients-lock*)
(dolist (s org-agent:*emacs-clients*) (dolist (s opencortex:*emacs-clients*)
(stream-to-emacs s action-plist))))))) (stream-to-emacs s action-plist)))))))
#+end_src #+end_src
* Registration * Registration
#+begin_src lisp #+begin_src lisp
(org-agent:register-actuator :emacs #'broadcast-to-emacs) (opencortex:register-actuator :emacs #'broadcast-to-emacs)
(defskill :skill-emacs-bridge (defskill :skill-emacs-bridge
:priority 100 :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 #+begin_src lisp :tangle projects/org-skill-hyper-graph/src/graph-logic.lisp
(defun hyper-graph-trace-lineage (object-id) (defun hyper-graph-trace-lineage (object-id)
"Recursively follows #+ID and [[file:]] links to find related cross-modal nodes." "Recursively follows #+ID and [[file:]] links to find related cross-modal nodes."
(let* ((obj (org-agent:lookup-object object-id)) (let* ((obj (opencortex:lookup-object object-id))
(links (extract-all-org-links (org-agent:org-object-content obj)))) (links (extract-all-org-links (opencortex:org-object-content obj))))
(kernel-log "MEMORY [Hyper-Graph] - Tracing lineage for ~a..." object-id) (kernel-log "MEMORY [Hyper-Graph] - Tracing lineage for ~a..." object-id)
(loop for link in links collect (resolve-hyper-link link)))) (loop for link in links collect (resolve-hyper-link link))))
#+end_src #+end_src

View File

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

View File

@@ -14,7 +14,7 @@ The *Latent Reflection* skill utilizes the idle cycles of the heartbeat to proac
** Package ** Package
#+begin_src lisp :tangle ../src/latent-reflection.lisp #+begin_src lisp :tangle ../src/latent-reflection.lisp
(in-package :org-agent) (in-package :opencortex)
#+end_src #+end_src
** State ** State
@@ -92,7 +92,7 @@ Find hidden connections, suggest new tags, or propose a new insight that bridges
~a ~a
MANDATE: Output EXACTLY ONE Common Lisp property list starting with (:type :REQUEST). 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))) context-string)))
:symbolic (lambda (action ctx) :symbolic (lambda (action ctx)
(declare (ignore 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 ** Package Context
#+begin_src lisp :tangle ../src/playwright.lisp #+begin_src lisp :tangle ../src/playwright.lisp
(in-package :org-agent) (in-package :opencortex)
#+end_src #+end_src
** Bridge Script Path ** Bridge Script Path

View File

@@ -34,7 +34,7 @@ Eliminate speculative debugging through rigorous scientific methodology.
(let* ((payload (getf context :payload)) (let* ((payload (getf context :payload))
(failure-log (getf payload :text)) (failure-log (getf payload :text))
(project (getf payload :project))) (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) (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 \"...\")"))) :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)) (let* ((payload (getf action :payload))
(hypothesis (getf payload :hypothesis)) (hypothesis (getf payload :hypothesis))
(failure-log (getf payload :failure-log))) (failure-log (getf payload :failure-log)))
(org-agent:kernel-log "SCIENTIST - Hypothesis formulated. Triggering SELF-FIX...") (opencortex:kernel-log "SCIENTIST - Hypothesis formulated. Triggering SELF-FIX...")
(org-agent:inject-stimulus (opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor :repair-request :hypothesis ,hypothesis :failure-log ,failure-log))) `(:type :EVENT :payload (:sensor :repair-request :hypothesis ,hypothesis :failure-log ,failure-log)))
(format nil "SUCCESS - Scientist proposed fix for failure."))) (format nil "SUCCESS - Scientist proposed fix for failure.")))
#+end_src #+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)) (let* ((payload (getf failure-context :payload))
(error-msg (getf payload :text)) (error-msg (getf payload :text))
(timestamp (local-time:format-timestring nil (local-time:now))) (timestamp (local-time:format-timestring nil (local-time:now)))
(gitea-url (org-agent::get-env "GITEA_URL"))) (gitea-url (opencortex::get-env "GITEA_URL")))
(org-agent:ask-neuro (opencortex:ask-neuro
(format nil "Create a Root Cause Analysis (RCA) note for the following error: ~a" error-msg) (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."))) :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) (defun scribe-rca-commit (rca-note)
"Commits the drafted RCA note to the Gitea repository." "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) (kernel-log "SCRIBE - Committing learning to Gitea: ~a" gitea-url)
;; Logic to use 'git commit' via shell-actuator ;; 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 #+end_src
* Registration * 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) (defun scribe-filter-personal (org-ast-node)
"Recursively strips out any headline or content tagged with @personal. "Recursively strips out any headline or content tagged with @personal.
This runs strictly in Deterministic Engine BEFORE any data is passed to Probabilistic Engine." 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=)) (when (not (member "@personal" tags :test #'string=))
org-ast-node))) org-ast-node)))
#+end_src #+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/")) (let* ((projects-dir (or (uiop:getenv "PROJECTS_DIR") "projects/"))
(project-dir (format nil "~aorg-skill-~a/" projects-dir project-name)) (project-dir (format nil "~aorg-skill-~a/" projects-dir project-name))
(test-file (format nil "~atests/test-suite.lisp" project-dir))) (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) (if (uiop:file-exists-p test-file)
(multiple-value-bind (output error-output exit-code) (multiple-value-bind (output error-output exit-code)
(uiop:run-program (list "sbcl" "--batch" "--load" test-file "--eval" "(uiop:quit)") (uiop:run-program (list "sbcl" "--batch" "--load" test-file "--eval" "(uiop:quit)")
:ignore-error-status t :output :string :error-output :string) :ignore-error-status t :output :string :error-output :string)
(if (= exit-code 0) (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 (progn
(org-agent:kernel-log "CI FAILURE - ~a failed tests with exit code ~a" project-name exit-code) (opencortex:kernel-log "CI FAILURE - ~a failed tests with exit code ~a" project-name exit-code)
(org-agent:inject-stimulus (opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor :test-failure :project ,project-name :text ,output :stderr ,error-output)))))) `(: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 #+end_src
* Registration * 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-dir (format nil "~atests/" project-dir))
(test-path (format nil "~atests/test-suite.lisp" 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) (ensure-directories-exist test-dir)
(with-open-file (out test-path :direction :output :if-exists :supersede) (with-open-file (out test-path :direction :output :if-exists :supersede)
(format out ";;; TDD Suite for ~a~%~a" project-name test-content)) (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 *** Routing and Pain Management
#+begin_src lisp :tangle ../src/accountant-logic.lisp #+begin_src lisp :tangle ../src/accountant-logic.lisp
(in-package :org-agent) (in-package :opencortex)
(defvar *provider-pain-table* (make-hash-table :test 'equal)) (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) (defun token-accountant-get-model-for-provider (provider &optional context)
"Returns the recommended model for the provider, prioritizing free/subsidized models. Updated April 2026." "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 (case provider
(:openrouter (:openrouter
(case complexity (case complexity
@@ -71,8 +71,8 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
(defun token-accountant-patch-kernel () (defun token-accountant-patch-kernel ()
"Hot-patches the harness's cascade and model selector to use our dynamic logic." "Hot-patches the harness's cascade and model selector to use our dynamic logic."
(setf org-agent:*provider-cascade* #'token-accountant-get-cascade) (setf opencortex:*provider-cascade* #'token-accountant-get-cascade)
(setf org-agent::*model-selector-fn* #'token-accountant-get-model-for-provider)) (setf opencortex::*model-selector-fn* #'token-accountant-get-model-for-provider))
#+end_src #+end_src
* Registration * Registration

View File

@@ -45,7 +45,7 @@ const stealth = require('puppeteer-extra-plugin-stealth')();
chromium.use(stealth); chromium.use(stealth);
async function askGemini(prompt) { 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, headless: true,
args: ['--disable-blink-features=AutomationControlled'] args: ['--disable-blink-features=AutomationControlled']
}); });
@@ -92,7 +92,7 @@ async function loginGemini() {
console.log("Opening browser for manual Google login..."); 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."); 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, headless: false,
args: ['--disable-blink-features=AutomationControlled'] args: ['--disable-blink-features=AutomationControlled']
}); });
@@ -110,7 +110,7 @@ loginGemini().catch(err => {
#+end_src #+end_src
#+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
(in-package :org-agent) (in-package :opencortex)
(defun ask-gemini-web (prompt) (defun ask-gemini-web (prompt)
"Calls the Playwright stealth bridge to interact with Gemini Web UI via a persistent profile." "Calls the Playwright stealth bridge to interact with Gemini Web UI via a persistent profile."