passepartout/skills/org-skill-task-integrity.org

SKILL: Task Integrity Agent (Universal Literate Note)

• Overview
• Phase A: Demand (PRD)
  • 1. Purpose
  • 2. User Needs
  • 3. Success Criteria
    • Semantic Category Mapping
    • Active Children Detection
    • State Transition Block Verification
• Phase B: Blueprint (PROTOCOL)
• Implementation
  • Semantic Mapping
  • Active Children Detection
  • Integrity Check (task-integrity-check)

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)

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)

Implementation

Semantic Mapping

(defun semantic-mapping (task-state)
  "Maps Org-mode task states to semantic categories."
  (case (intern (string-upcase task-state) :keyword)
    ((:todo :active :started :wait) :active)
    ((:done :cancelled :resolved) :resolved)
    (t :unknown)))

Active Children Detection

(defun detect-active-children (task-id)
  "Checks if a task has any child tasks in an active state."
  (let ((children (list-objects-with-attribute :PARENT task-id)))
    (remove-if-not (lambda (child)
                     (let ((todo (getf (org-object-attributes child) :TODO)))
                       (and todo (eq (semantic-mapping todo) :active))))
                   children)))

Integrity Check (task-integrity-check)

Enforces high-integrity semantic rules for task management.

(defun task-integrity-check (action)
  "Enforces semantic GTD integrity rules on proposed actions."
  (let* ((payload (getf action :payload))
         (act (or (getf payload :action) (getf action :action)))
         (id (or (getf payload :id) (getf action :id)))
         (new-attrs (or (getf payload :attributes) (getf action :attributes))))
    (when (and (eq act :update-node) 
               (equal (getf new-attrs :TODO) "DONE"))
      (let ((active-children (detect-active-children id)))
        (when active-children
          (return-from task-integrity-check 
            (format nil "Blocked by Task Integrity: ~a active children exist." (length active-children))))))
    nil))
#+begin_src

** Skill Definition
#+begin_src lisp
(defskill :skill-task-integrity
  :priority 90
  :trigger (lambda (ctx) (declare (ignore ctx)) nil)
  :probabilistic nil
  :deterministic (lambda (action context)
              (declare (ignore context))
              (let ((err (task-integrity-check action)))
                (if err
                    (list :type :LOG :payload (list :text err))
                    action))))