chore: structural cleanup of projects and patches

system/patches/patch-architect-scan.lisp

@@ -0,0 +1,17 @@
+(in-package :org-agent.skills.org-skill-architect)
+
+(defun architect-scan-all-notes ()
+  (let* ((notes-dir (or (uiop:getenv "MEMEX_NOTES") "/home/user/memex/notes/"))
+         (files (uiop:directory-files (uiop:ensure-directory-pathname notes-dir)))
+         (ready-notes '()))
+    (org-agent:kernel-log "ARCHITECT - Scanning ~a files in ~a" (length files) notes-dir)
+    (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))))))
+    (org-agent:kernel-log "ARCHITECT - Found ~a ready notes." (length ready-notes))
+    ready-notes))