Architectural Upgrade 2026-03-30: Modular Emacs, org-gtd v4.0, and PSF Phase 1

system/skills/org-skill-ast-normalization.org

@@ -0,0 +1,62 @@
+#+TITLE: SKILL: AST Normalization Agent (Structural Integrity)
+#+ID: skill-ast-normalization-agent
+#+STARTUP: content
+
+* Overview
+The **AST Normalization Agent** is responsible for maintaining the structural integrity of the Org-mode Abstract Syntax Tree (AST) within the Memex. It handles explicit refactoring commands and ensures that all nodes adhere to the system's strict metadata requirements.
+
+* The Normalization Mandate
+1. **Structural Enforcement:** Every significant headline must have a unique `#+ID`.
+2. **Deterministic Preemption:** If a deterministic structural issue is detected, the symbolic layer (System 2) MUST preempt any neural suggestions (System 1).
+3. **Fidelity:** Refactoring must preserve the user's content while normalizing its metadata.
+
+* Symbolic Implementation (The Logic)
+The logic below defines the transition from a user-initiated "organize" command to a verified, high-integrity AST transformation.
+
+** Architectural Intent: Command Trigger
+This skill triggers on explicit user-driven events, specifically targeting the `organize-subtree` command.
+
+#+begin_src lisp
+(defun trigger-skill-ast-normalization (context)
+  (let ((type (getf context :type))
+        (payload (getf context :payload)))
+    (and (eq type :EVENT)
+         (eq (getf payload :sensor) :user-command)
+         (eq (getf payload :command) :organize-subtree))))
+#+end_src
+
+** Architectural Intent: Neuro-Cognitive Fallback
+While primarily symbolic, the neural layer provides a bridge for complex requests where a simple deterministic fix isn't immediately obvious.
+
+#+begin_src lisp
+(defun neuro-skill-ast-normalization (context)
+  (format nil "User requested subtree organization. Context - ~a. Suggest an Org-mode action. Provide concise, high-fidelity suggestions in Lisp plist format." context))
+#+end_src
+
+** Architectural Intent: Symbolic Verification (System 2)
+The core of this skill is the verification phase. It inspects the AST for missing IDs and, if found, generates a deterministic refactoring request that overrides any neural output.
+
+#+begin_src lisp
+(defun verify-skill-ast-normalization (proposed-action context)
+  (let* ((ast (getf (getf context :payload) :ast))
+         (missing-id (find-headline-missing-id ast)))
+    (if missing-id
+        (progn
+          (format t "System 2 - Missing ID detected, preempting System 1.~%")
+          `(:type :REQUEST :id ,(get-universal-time) 
+            :target :emacs
+            :payload (:action :refactor-subtree 
+                      :target-id nil 
+                      :properties (("ID" . ,(format nil "node-~a" (get-universal-time)))))))
+        ;; If no deterministic action, allow System 1's proposal to pass
+        proposed-action)))
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-ast-normalization
+  :priority 100 ; High priority to preempt general skills
+  :trigger #'trigger-skill-ast-normalization
+  :neuro #'neuro-skill-ast-normalization
+  :symbolic #'verify-skill-ast-normalization)
+#+end_src