chore: add patches, new project skills, and utility scripts

patch-architect-actuate.lisp

@@ -0,0 +1,19 @@
+(in-package :org-agent.skills.org-skill-architect)
+
+(defun architect-actuate (action context)
+  (declare (ignore context))
+  (let* ((payload (getf action :payload))
+         ;; Support both (getf action :payload) and direct top-level keys
+         (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))))