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

notes/org-skill-memex.org

@@ -0,0 +1,80 @@
+#+TITLE: SKILL: Memex Manager (Universal Literate Note)
+#+ID: skill-memex
+#+STARTUP: content
+#+FILETAGS: :memex:gtd:zettelkasten:integrity:psf:
+
+* Overview
+The **Memex Manager** is the primary automation engine for the Personal Knowledge Management system. It enforces metadata standards, automates task lifecycles, and distills ephemeral daily logs into timeless knowledge.
+
+* Phase A: Demand (PRD)
+:PROPERTIES:
+:STATUS: FROZEN
+:END:
+
+** 1. Purpose
+Define automated behaviors for knowledge and task management integrity.
+
+** 2. User Needs
+- **Unified Capture:** Landing all new information in `inbox.org`.
+- **Metadata Compliance:** Mandatory `:CREATED:` and `:LOGBOOK:` drawers.
+- **Automated Task Lifecycle:** `NEXT` promotion logic for GTD.
+- **Mobile Sovereignty:** Compatibility with Markor and Orgzly.
+- **Agentic Distillation:** Extracting evergreen concepts from daily logs.
+
+** 3. Success Criteria
+*** TODO Metadata Audit Accuracy
+*** TODO Task Promotion Verification
+*** TODO Note Distillation Provenance
+
+* Phase B: Blueprint (PROTOCOL)
+:PROPERTIES:
+:STATUS: SIGNED
+:END:
+
+** 1. Architectural Intent
+Interfaces for AST-driven task and note manipulation. Source of truth is the Org-mode filesystem.
+
+** 2. Semantic Interfaces
+#+begin_src lisp
+(defun memex-audit-metadata (file-path)
+  "Parses an Org file to ensure standards compliance.")
+
+(defun memex-promote-next-task (project-id)
+  "Triggered when a task is marked DONE; promotes the successor.")
+
+(defun memex-distill-atomic-note (daily-file-path concept-query)
+  "Extracts a concept and creates a permanent note.")
+#+end_src
+
+* Phase D: Build (Implementation)
+
+** Metadata Audit
+#+begin_src lisp :tangle projects/org-skill-memex/src/memex-logic.lisp
+(defun memex-audit-metadata (file-path)
+  (let ((content (uiop:read-file-string file-path))
+        (errors '()))
+    (with-input-from-string (s content)
+      (loop for line = (read-line s nil)
+            while line
+            do (when (cl-ppcre:scan "^\\*+ " line)
+                 (let ((next (read-line s nil)))
+                   (unless (and next (cl-ppcre:scan ":PROPERTIES:" next))
+                     (push line errors))))))
+    errors))
+#+end_src
+
+** Task Promotion
+#+begin_src lisp :tangle projects/org-skill-memex/src/memex-logic.lisp
+(defun memex-promote-next-task (project-id)
+  (let ((gtd-file (or (uiop:getenv "GTD_FILE") "gtd.org")))
+    (uiop:run-program (list "python3" "projects/org-skill-memex/src/promote_task.py" gtd-file project-id))))
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-memex
+  :priority 80
+  :trigger #'trigger-skill-memex
+  :neuro #'neuro-skill-memex
+  :symbolic #'memex-audit-metadata)
+#+end_src