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

notes/org-skill-task-integrity.org

@@ -1 +0,0 @@
-../system/skills/org-skill-task-integrity.org

notes/org-skill-task-integrity.org

@@ -0,0 +1,74 @@
+#+TITLE: SKILL: Task Integrity Agent (Universal Literate Note)
+#+ID: skill-task-integrity
+#+STARTUP: content
+#+FILETAGS: :gtd:integrity:safety:psf:
+
+* Overview
+The **Task Integrity Agent** is the "Guardian" of the GTD system. It ensures that all task transitions adhere to semantic rules, preventing logical inconsistencies and maintaining the structural health of the task hierarchy.
+
+* Phase A: Demand (PRD)
+:PROPERTIES:
+:STATUS: FROZEN
+:END:
+
+** 1. Purpose
+Define automated behaviors for GTD state consistency and dependency verification.
+
+** 2. User Needs
+- **Semantic Enforcement:** Valid state transitions (Active vs. Resolved).
+- **Dependency Awareness:** Block closing parents with active children.
+- **Proactive Assistance:** Suggesting next logical actions based on momentum.
+- **Fidelity:** Preservation of metadata during state transitions.
+
+** 3. Success Criteria
+*** TODO Semantic Category Mapping
+*** TODO Active Children Detection
+*** TODO State Transition Block Verification
+
+* Phase B: Blueprint (PROTOCOL)
+:PROPERTIES:
+:STATUS: SIGNED
+:END:
+
+** 1. Architectural Intent
+Interfaces for state verification and hierarchical auditing. Source of truth is the Org-mode AST and GTD metadata.
+
+** 2. Semantic Interfaces
+#+begin_src lisp
+(defun semantic-state-category (state)
+  "Maps raw keywords to :active or :resolved categories.")
+
+(defun has-active-children-p (parent-id)
+  "Recursively checks for active subtasks.")
+
+(defun verify-skill-task-integrity (proposed-action context)
+  "System 2 gatekeeper for logical task consistency.")
+#+end_src
+
+* Phase D: Build (Implementation)
+
+** State Mapping
+#+begin_src lisp :tangle projects/org-skill-task-integrity/src/integrity-logic.lisp
+(defun semantic-state-category (state)
+  (let ((s (string-upcase (or state ""))))
+    (cond
+     ((member s '("TODO" "NEXT" "WAIT") :test #'string=) :active)
+     ((member s '("DONE" "CNCL" "CANCELED") :test #'string=) :resolved)
+     (t :unknown))))
+#+end_src
+
+** Dependency Checking
+#+begin_src lisp :tangle projects/org-skill-task-integrity/src/integrity-logic.lisp
+(defun has-active-children-p (parent-id)
+  ;; Simplified implementation for refactor
+  nil)
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-task-integrity
+  :priority 50
+  :trigger #'trigger-skill-task-integrity
+  :neuro #'neuro-skill-task-integrity
+  :symbolic #'verify-skill-task-integrity)
+#+end_src