From c5d3d8c5faa09219ba6974345b36cc1f95beebc5 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Tue, 14 Apr 2026 16:03:37 -0400 Subject: [PATCH] chore: Audit terminology (org-agent -> opencortex) --- org-skill-architect.org | 6 +++--- org-skill-chaos.org | 8 ++++---- org-skill-dotemacs.org | 2 +- org-skill-emacs-bridge.org | 10 +++++----- org-skill-hyper-graph.org | 4 ++-- org-skill-inbox-processor.org | 8 ++++---- org-skill-latent-reflection.org | 4 ++-- org-skill-playwright.org | 2 +- org-skill-scientist.org | 6 +++--- org-skill-scribe-rca.org | 8 ++++---- org-skill-scribe.org | 2 +- org-skill-tdd-runner.org | 10 +++++----- org-skill-tech-analyst.org | 2 +- org-skill-token-accountant.org | 8 ++++---- org-skill-web-research.org | 6 +++--- 15 files changed, 43 insertions(+), 43 deletions(-) diff --git a/org-skill-architect.org b/org-skill-architect.org index 3c863f7..4a7f734 100644 --- a/org-skill-architect.org +++ b/org-skill-architect.org @@ -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 diff --git a/org-skill-chaos.org b/org-skill-chaos.org index 2617c06..c93a327 100644 --- a/org-skill-chaos.org +++ b/org-skill-chaos.org @@ -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 diff --git a/org-skill-dotemacs.org b/org-skill-dotemacs.org index 73bd9b4..0397d6d 100644 --- a/org-skill-dotemacs.org +++ b/org-skill-dotemacs.org @@ -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 diff --git a/org-skill-emacs-bridge.org b/org-skill-emacs-bridge.org index 5827dc9..792c379 100644 --- a/org-skill-emacs-bridge.org +++ b/org-skill-emacs-bridge.org @@ -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 diff --git a/org-skill-hyper-graph.org b/org-skill-hyper-graph.org index 138f866..1e36622 100644 --- a/org-skill-hyper-graph.org +++ b/org-skill-hyper-graph.org @@ -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 diff --git a/org-skill-inbox-processor.org b/org-skill-inbox-processor.org index 90a0d2f..e3e48aa 100644 --- a/org-skill-inbox-processor.org +++ b/org-skill-inbox-processor.org @@ -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 diff --git a/org-skill-latent-reflection.org b/org-skill-latent-reflection.org index 486c9ca..90b9482 100644 --- a/org-skill-latent-reflection.org +++ b/org-skill-latent-reflection.org @@ -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)) diff --git a/org-skill-playwright.org b/org-skill-playwright.org index 4da91cf..80e2388 100644 --- a/org-skill-playwright.org +++ b/org-skill-playwright.org @@ -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 diff --git a/org-skill-scientist.org b/org-skill-scientist.org index b4c1fcd..4b4c1f8 100644 --- a/org-skill-scientist.org +++ b/org-skill-scientist.org @@ -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 diff --git a/org-skill-scribe-rca.org b/org-skill-scribe-rca.org index 318cd7a..900ded9 100644 --- a/org-skill-scribe-rca.org +++ b/org-skill-scribe-rca.org @@ -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 diff --git a/org-skill-scribe.org b/org-skill-scribe.org index a6838be..f6a8671 100644 --- a/org-skill-scribe.org +++ b/org-skill-scribe.org @@ -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 diff --git a/org-skill-tdd-runner.org b/org-skill-tdd-runner.org index 52355ef..035bd9f 100644 --- a/org-skill-tdd-runner.org +++ b/org-skill-tdd-runner.org @@ -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 diff --git a/org-skill-tech-analyst.org b/org-skill-tech-analyst.org index 3ae33ba..c54b980 100644 --- a/org-skill-tech-analyst.org +++ b/org-skill-tech-analyst.org @@ -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)) diff --git a/org-skill-token-accountant.org b/org-skill-token-accountant.org index 7129e60..4f6c775 100644 --- a/org-skill-token-accountant.org +++ b/org-skill-token-accountant.org @@ -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 diff --git a/org-skill-web-research.org b/org-skill-web-research.org index 9258808..5325c52 100644 --- a/org-skill-web-research.org +++ b/org-skill-web-research.org @@ -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."