134 lines
4.9 KiB
Org Mode
134 lines
4.9 KiB
Org Mode
:PROPERTIES:
|
|
:ID: cb3669d7-753b-41b6-9046-2141ffbb7254
|
|
:END:
|
|
#+TITLE: SKILL: Architect Agent (Universal Literate Note)
|
|
#+STARTUP: content
|
|
#+FILETAGS: :architect:blueprint:design:psf:
|
|
|
|
* Overview
|
|
The *Architect Agent* transforms a FROZEN PRD (Demand) into a rigorous PROTOCOL (Blueprint). It bridges the gap between high-level requirements and technical implementation.
|
|
|
|
* Phase A: Demand (PRD)
|
|
:PROPERTIES:
|
|
:STATUS: SIGNED
|
|
:END:
|
|
|
|
** 1. Purpose
|
|
Automate the technical design phase of the PSF project lifecycle.
|
|
|
|
** 2. User Needs
|
|
- *Perception:* Scan the Memex for FROZEN PRDs.
|
|
- *Synthesis:* Generate Lisp-idiomatic technical interfaces.
|
|
- *Actuation:* Autonomously append Phase B (Blueprint) to master notes.
|
|
|
|
* Phase B: Blueprint (PROTOCOL)
|
|
:PROPERTIES:
|
|
:STATUS: SIGNED
|
|
:END:
|
|
|
|
** 1. Architectural Intent
|
|
Interfaces for blueprint actuation and requirement perception. Source of truth is the project's PRD.
|
|
|
|
** 2. Semantic Interfaces
|
|
"Checks if a project has a FROZEN PRD."
|
|
"Physically writes the PROTOCOL.org file."
|
|
|
|
* Phase D: Build (Implementation)
|
|
|
|
** PRD Perception
|
|
#+begin_src lisp :tangle ../projects/org-skill-architect/src/architect-logic.lisp
|
|
(defun architect-perceive-frozen-prd (note-path)
|
|
"Checks if a master note has a FROZEN PRD and lacks a Phase B section."
|
|
(let ((content (uiop:read-file-string note-path)))
|
|
(when (and (search "* Phase A: Demand (PRD)" content)
|
|
(search ":STATUS: FROZEN" content)
|
|
(not (search "* Phase B: Blueprint (PROTOCOL)" content)))
|
|
`(:note-path ,note-path :content ,content))))
|
|
#+end_src
|
|
|
|
** Note Scanning
|
|
#+begin_src lisp :tangle ../projects/org-skill-architect/src/architect-logic.lisp
|
|
(defun architect-scan-all-notes ()
|
|
"Scans all org-skill-*.org notes for demands ready for blueprinting.
|
|
Uses manual filtering to ensure robustness across Lisp environments."
|
|
(let* ((notes-dir (or (uiop:getenv "MEMEX_NOTES") "/home/user/memex/notes/"))
|
|
(files (uiop:directory-files (uiop:ensure-directory-pathname notes-dir)))
|
|
(ready-notes '()))
|
|
(dolist (file files)
|
|
(let ((name (pathname-name file))
|
|
(type (pathname-type file)))
|
|
(when (and name type
|
|
(uiop:string-prefix-p "org-skill-" name)
|
|
(string-equal type "org"))
|
|
(let ((status (architect-perceive-frozen-prd file)))
|
|
(when status (push status ready-notes))))))
|
|
ready-notes))
|
|
#+end_src
|
|
|
|
** Cognitive Trigger
|
|
#+begin_src lisp :tangle ../projects/org-skill-architect/src/architect-logic.lisp
|
|
(defun trigger-skill-architect (context)
|
|
"Triggers on heartbeat if any master note is in a FROZEN PRD state."
|
|
(let ((type (getf context :type))
|
|
(payload (getf context :payload)))
|
|
(when (and (eq type :EVENT) (eq (getf payload :sensor) :heartbeat))
|
|
(let ((ready (architect-scan-all-notes)))
|
|
(when ready
|
|
(setf (getf (getf context :payload) :ready-notes) ready)
|
|
t)))))
|
|
#+end_src
|
|
|
|
** Neuro-Cognitive Prompt
|
|
#+begin_src lisp :tangle ../projects/org-skill-architect/src/architect-logic.lisp
|
|
(defun neuro-skill-architect (context)
|
|
(let* ((payload (getf context :payload))
|
|
(note (car (getf payload :ready-notes)))
|
|
(note-path (getf note :note-path))
|
|
(prd-content (getf note :content))
|
|
(path-str (namestring note-path)))
|
|
(format nil "
|
|
You are the PSF Architect.
|
|
The Master Note '~a' has a FROZEN PRD and needs a PROTOCOL.
|
|
|
|
NOTE CONTENT:
|
|
---
|
|
~a
|
|
---
|
|
|
|
TASK:
|
|
Draft the '* Phase B: Blueprint (PROTOCOL)' section.
|
|
1. Define Architectural Intent.
|
|
2. Define Semantic Interfaces using Lisp signatures.
|
|
|
|
Return a Lisp plist: (:target :architect :action :actuate :path \"~a\" :content \"...blueprint section...\")
|
|
" path-str prd-content path-str)))
|
|
#+end_src
|
|
|
|
** Blueprint Actuation
|
|
#+begin_src lisp :tangle ../projects/org-skill-architect/src/architect-logic.lisp
|
|
(defun architect-actuate (action context)
|
|
(declare (ignore context))
|
|
(let* ((payload (getf action :payload))
|
|
(note-path (or (getf payload :path) (getf action :path)))
|
|
(blueprint-content (or (getf payload :content) (getf action :content))))
|
|
(if (and note-path blueprint-content)
|
|
(progn
|
|
(org-agent:kernel-log "ARCHITECT - Appending PROTOCOL to ~a" note-path)
|
|
(with-open-file (out note-path :direction :output :if-exists :append)
|
|
(format out "~%* Phase B: Blueprint (PROTOCOL)~%:PROPERTIES:~%:STATUS: SIGNED~%:END:~%~%~a"
|
|
blueprint-content))
|
|
(format nil "SUCCESS - Architect established PROTOCOL in ~a" note-path))
|
|
(progn
|
|
(org-agent:kernel-log "ARCHITECT FAILURE - Missing path or content in action: ~a" action)
|
|
nil))))
|
|
#+end_src
|
|
|
|
* Registration
|
|
#+begin_src lisp
|
|
(defskill :skill-architect
|
|
:priority 110 ; Higher priority to lead the loop
|
|
:trigger #'trigger-skill-architect
|
|
:neuro #'neuro-skill-architect
|
|
:symbolic #'architect-actuate)
|
|
#+end_src
|