chore: Audit terminology (org-agent -> opencortex)
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
|
|||||||
@@ -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
|
||||||
|
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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))
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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))
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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."
|
||||||
|
|||||||
Reference in New Issue
Block a user