feat(psf): transition to Order 2 (Sovereign Architect) with advanced skill graph and philosophical alignment

notes/org-skill-long-horizon.org

@@ -0,0 +1,89 @@
+#+TITLE: SKILL: Long-Horizon Planning Agent (Universal Literate Note)
+#+ID: skill-long-horizon
+#+STARTUP: content
+#+FILETAGS: :planning:meta-cognition:long-horizon:psf:
+
+* Overview
+The **Long-Horizon Planning Agent** manages complex, multi-step tasks that exceed the context window of standard LLMs. It uses an Org-mode **Dynamic Task Tree** to track progress, summarize completed sub-tasks, and prune irrelevant execution branches.
+
+* Phase A: Demand (PRD)
+:PROPERTIES:
+:STATUS: DRAFT
+:END:
+
+** 1. Purpose
+Enable the agent to maintain focus and coherence over tasks spanning 100+ steps (SWE-bench parity).
+
+** 2. User Needs
+- **Hierarchical Planning:** Break large goals into a nested tree of Org headlines.
+- **Context Compression:** Automatically summarize the results of child sub-trees into their parent nodes.
+- **Branch Pruning:** Meta-cognitive review to stop execution of failed or redundant paths.
+- **Self-Correction:** Adjust the plan dynamically based on environmental feedback.
+
+** 3. Success Criteria
+*** TODO Dynamic Task Tree Generation
+*** TODO Context Compression Verification
+*** TODO Branch Pruning Logic Effectiveness
+
+* Phase B: Blueprint (PROTOCOL)
+:PROPERTIES:
+:STATUS: SIGNED
+:END:
+
+** 1. Architectural Intent
+Interfaces for plan generation and recursive summarization. Source of truth is the current plan subtree in the Object Store.
+
+** 2. Semantic Interfaces
+#+begin_src lisp
+(defun plan-compress-node (node-id)
+  "Neural summarization of a completed sub-task tree.")
+
+(defun plan-review-branches (root-id)
+  "Meta-cognitive audit of the current plan to prune dead ends.")
+#+end_src
+
+* Phase D: Build (Implementation)
+
+** Context Compression
+#+begin_src lisp :tangle projects/org-skill-long-horizon/src/planning-logic.lisp
+(defun plan-compress-node (node-id)
+  "Summarizes a completed task and its children into a single string to save context."
+  (let* ((obj (org-agent:lookup-object node-id))
+         (children (org-agent:org-object-children obj))
+         (content (org-agent:org-object-content obj))
+         (child-summaries (loop for cid in children 
+                                collect (org-agent:org-object-content (org-agent:lookup-object cid)))))
+    (org-agent:ask-neuro 
+     (format nil "Summarize this completed sub-task and its outcomes: ~a~%Sub-tasks: ~{~a~%~}" content child-summaries)
+     :system-prompt "You are a Meta-Cognitive Pruning Engine. Summarize outcomes to preserve high-signal context.")))
+#+end_src
+
+** Neuro-Cognitive Audit
+#+begin_src lisp :tangle projects/org-skill-long-horizon/src/planning-logic.lisp
+(defun neuro-skill-long-horizon (context)
+  "Triggered when a major milestone is reached. 
+   Performs a 'Review' of the entire plan tree."
+  (let* ((payload (getf context :payload))
+         (root-id (getf payload :plan-root-id))
+         (plan-tree (org-agent:lookup-object root-id)))
+    (format nil "
+      I am performing a Meta-Cognitive Audit of the current plan.
+      ROOT: ~a
+      STATUS: ~a
+      
+      TASK:
+      1. Identify nodes that are 'BLOCKED' or 'FAILED'.
+      2. Decide if these branches should be RETRIED, PRUNED, or if the PLAN needs RESTRUCTURING.
+      3. Return a revised plan structure in Lisp format.
+    " (getf (org-agent:org-object-attributes plan-tree) :TITLE)
+      (getf (org-agent:org-object-attributes plan-tree) :TODO-STATE))))
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-long-horizon
+  :priority 95
+  :trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :milestone))
+  :neuro #'neuro-skill-long-horizon
+  :symbolic (lambda (action context) action))
+#+end_src