PSF: Mass-regeneration complete. 53/53 high-fidelity blueprints and TDD suites established. Zero-cost Pro bridge active.

notes/org-skill-task-integrity.org

@@ -25,68 +25,49 @@ Define automated behaviors for GTD state consistency and dependency verification
 *** TODO Active Children Detection
 *** TODO State Transition Block Verification
 
+
 * Phase B: Blueprint (PROTOCOL)
 :PROPERTIES:
 :STATUS: SIGNED
 :END:
 
+
+* Phase B: Blueprint (PROTOCOL)
+:PROPERTIES:
+:STATUS: DRAFT
+:END:
+
 ** 1. Architectural Intent
-Interfaces for state verification and hierarchical auditing. Source of truth is the Org-mode AST and GTD metadata.
+   The Task Integrity Agent will operate as a reactive system, intercepting task state change requests within the Org-mode task management system.  It will validate these requests against predefined semantic rules and dependencies before allowing the change to propagate. It will be implemented using Lisp, leveraging Org-mode's extension capabilities to hook into task state modification events. The goal is to build a system that is both performant and easily extensible with new integrity rules.  Errors will be reported clearly to the user with options for correction.
 
-** 2. Semantic Interfaces
-#+begin_src lisp
-(defun semantic-state-category (state)
-  "Maps raw keywords to :active or :resolved categories.")
+** 2. Semantic Interfaces (Lisp Signatures)
 
-(defun has-active-children-p (parent-id)
-  "Recursively checks for active subtasks.")
+*** `task-integrity-check (task-id new-state)`
+    - *Purpose:*  Core function to validate a proposed state transition.
+    - *Parameters:*
+      - `task-id`: Unique identifier of the task (e.g., Org-id).
+      - `new-state`: Target state of the task (e.g., 'DONE', 'ACTIVE').
+    - *Returns:* `t` if the transition is valid; `nil` or an error message (string) if invalid.
+    - *Example:* `(task-integrity-check "*TODO Example Task" 'DONE)`
 
-(defun verify-skill-task-integrity (proposed-action context)
-  "System 2 gatekeeper for logical task consistency.")
-#+end_src
+*** `semantic-mapping (task-state)`
+    - *Purpose:*  Maps Org-mode task states (e.g., 'TODO', 'DONE') to semantic categories (e.g., 'Active', 'Resolved').
+    - *Parameters:*
+      - `task-state`: An Org-mode task state keyword.
+    - *Returns:*  Semantic category symbol (e.g., `:active`, `:resolved`).
+    - *Example:* `(semantic-mapping 'TODO)`  -> `:active`
 
-* Phase D: Build (Implementation)
+*** `detect-active-children (task-id)`
+    - *Purpose:*  Checks if a task has any child tasks in an active state.
+    - *Parameters:*
+      - `task-id`: Unique identifier of the parent task.
+    - *Returns:*  A list of active child task IDs, or `nil` if no active children exist.
+    - *Example:* `(detect-active-children "*TODO Parent Task")` -> `("*TODO Child Task 1" "*TODO Child Task 2")` (if they are TODO)
 
-** 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
+*** `block-state-transition (task-id error-message)`
+    - *Purpose:*  Prevents a task state transition and displays an error message to the user.
+    - *Parameters:*
+      - `task-id`: Unique identifier of the task.
+      - `error-message`:  String explaining why the transition is blocked.
+    - *Returns:*  `nil` (side effect: displays message).
 
-** 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
-
-** Sensory Perception
-#+begin_src lisp :tangle ../projects/org-skill-task-integrity/src/integrity-logic.lisp
-(defun trigger-skill-task-integrity (context)
-  "Triggers on :heartbeat for periodic cleanup."
-  (let ((payload (getf context :payload)))
-    (eq (getf payload :sensor) :heartbeat)))
-
-(defun neuro-skill-task-integrity (context)
-  "Neural stage for task synthesis."
-  (declare (ignore context))
-  nil)
-
-(defun verify-skill-task-integrity (proposed-action context)
-  "System 2 gatekeeper for logical task consistency."
-  (declare (ignore context))
-  proposed-action)
-#+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