PSF: Stabilizing workspace after crash. Valid kernel/skill fixes.
This commit is contained in:
@@ -1,19 +1,3 @@
|
||||
;;;; architect-logic.lisp --- Architectural automation for the PSF (Unified).
|
||||
;;;; This file is TANGLED from notes/org-skill-architect.org. DO NOT EDIT MANUALLY.
|
||||
|
||||
(defpackage :org-skill-architect
|
||||
(:use :cl :uiop :local-time)
|
||||
(:export #:architect-perceive-frozen-prd
|
||||
#:architect-scan-all-notes
|
||||
#:trigger-skill-architect
|
||||
#:neuro-skill-architect
|
||||
#:architect-actuate))
|
||||
|
||||
(in-package :org-skill-architect)
|
||||
|
||||
(defun kernel-log (message &rest args)
|
||||
(format t "~&[ARCHITECT] ~?" message args))
|
||||
|
||||
(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)))
|
||||
@@ -68,7 +52,7 @@
|
||||
(note-path (getf payload :path))
|
||||
(blueprint-content (getf payload :content)))
|
||||
|
||||
(kernel-log "Appending PROTOCOL to ~a" note-path)
|
||||
(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))
|
||||
|
||||
Reference in New Issue
Block a user