feat(arch): implement 'Code as Thought' architecture and formalize PSF Consensus Loop

system/skills/org-skill-chaos.org

@@ -1,63 +0,0 @@
-#+TITLE: SKILL: Chaos Specialist Agent (Consensus Phase E)
-#+ID: skill-chaos-specialist
-#+STARTUP: content
-#+FILETAGS: :psf:qa:chaos-engineering:testing:
-
-* Overview
-The **Chaos Specialist Agent** is the fifth specialized role in the [[file:../notes/personal-software-foundry.org][Personal Software Foundry (PSF)]] Consensus Loop. Its purpose is to perform **Dynamic Verification** through destructive testing.
-
-While the Analyst ensures the code is *functionally* correct via TDD, the Chaos Specialist ensures the system is *resilient* by proactively attempting to break it.
-
-* The Chaos Mandate
-1. **Perception:** The Specialist must perceive when a project has reached the `:BUILD` state (tests passing, code implementation present).
-2. **Sabotage:** It must execute the **Chaos Gauntlet**, which includes simulating image crashes and dependency failures.
-3. **Audit:** It MUST generate a `Chaos_Report.org` documenting the system's ability to recover, adhering to the "Persistence by Default" mandate.
-
-* Symbolic Implementation (The Logic)
-The following Lisp logic defines the actuation of the Chaos Gauntlet.
-
-#+begin_src lisp
-(defun chaos-actuate (project-name)
-  "Physically executes the Chaos Gauntlet and writes the report."
-  (let* ((projects-dir (org-agent::get-env "PROJECTS_DIR" "/app/5_projects/"))
-         (project-dir (format nil "~a/~a/" projects-dir project-name))
-         (report-path (format nil "~adocs/Chaos_Report.org" project-dir)))
-    
-    (kernel-log "CHAOS - Actuating Gauntlet for: ~a" project-name)
-    (ensure-directories-exist (format nil "~adocs/" project-dir))
-    
-    (let ((result (psf-run-chaos-gauntlet project-name)))
-      (with-open-file (out report-path :direction :output :if-exists :supersede)
-        (format out "#+TITLE: Chaos Report: ~a~%#+STATUS: ~a~%~%* 1. Sabotage Results~%~a~%" 
-                project-name (if (search "SUCCESS" result) "PASSED" "FAILED") result)))
-    
-    (format nil "SUCCESS - Chaos Specialist completed audit for ~a" project-name)))
-#+end_src
-
-* Neuro-Cognitive Prompt (The 'Think' Loop)
-When invoked, the neuro-layer decides which specific sabotage strategies to deploy based on the project's architecture.
-
-#+begin_src lisp
-(defun neuro-skill-chaos (context)
-  (let* ((payload (getf context :payload))
-         (project-name (getf payload :project-name)))
-    (format nil "
-      You are the PSF Chaos Specialist. 
-      Project '~a' has passed implementation and TDD.
-      
-      Your task: Identify the most critical failure points.
-      1. Analyze the project structure.
-      2. Deploy sabotage strategies (e.g., kill image, mock network failure).
-      
-      Return a Lisp plist: (:target :chaos :action :actuate :name \"~a\")
-    " project-name project-name)))
-#+end_src
-
-* Registration
-#+begin_src lisp
-(defskill :skill-chaos
-  :priority 50
-  :trigger #'trigger-skill-chaos
-  :neuro #'neuro-skill-chaos
-  :symbolic #'chaos-actuate)
-#+end_src

system/skills/org-skill-chaos.org

@@ -0,0 +1 @@
+/home/user/memex/notes/org-skill-chaos.org