refactor: moved org-agent to its own repository as a submodule

notes/skill-project-foundry.org

@@ -0,0 +1,86 @@
+#+TITLE - Project Foundry Skill
+#+AUTHOR - org-agent
+#+SKILL_NAME - skill-project-foundry
+
+This skill allows the agent to scaffold new projects within the Memex workspace. It automates directory creation, git initialization, and links the project to the user's GTD system.
+
+* Trigger
+Triggers only when delegated to by the Router.
+
+#+begin_src lisp
+(defun trigger-skill-project-foundry (context)
+  (let ((type (getf context :type))
+        (payload (getf context :payload)))
+    (and (eq type :EVENT)
+         (eq (getf payload :sensor) :delegation)
+         (eq (getf payload :target-skill) :foundry))))
+#+end_src
+
+* Scaffolding Logic
+#+begin_src lisp
+(defun scaffold-project (name type)
+  "Physically creates the project structure on disk and links it to GTD."
+  (let* ((projects-dir (org-agent::get-env "PROJECTS_DIR" "/app/5_projects/"))
+         (project-dir (format nil "~a/~a/" projects-dir name))
+         (readme-path (format nil "~aREADME.org" project-dir))
+         (memex-dir (org-agent::get-env "MEMEX_DIR" "/app/"))
+         (gtd-file (format nil "~a/gtd.org" (string-right-trim "/" memex-dir))))
+    
+    (if (uiop:directory-exists-p project-dir)
+        (format nil "ERROR - Project ~a already exists." name)
+        (progn
+          (kernel-log "FOUNDRY - Scaffolding ~a project: ~a" type name)
+          ;; 1. Create directory
+          (ensure-directories-exist project-dir)
+          ;; 2. Initialize Git (via shell delegation)
+          (org-agent:inject-stimulus 
+           `(:type :EVENT :payload (:action :run-command :target :shell :cmd ,(format nil "git init ~a" project-dir))))
+          
+          ;; 3. Create Boilerplate README
+          (with-open-file (out readme-path :direction :output :if-exists :supersede)
+            (format out "#+TITLE - ~a~%#+AUTHOR - User~%#+DATE - ~a~%~%* Overview~%Automatically scaffolded ~a project.~%"                    name (get-universal-time) type))
+          
+          ;; 4. Link to GTD.org (Homoiconic Connection)
+          (with-open-file (out gtd-file :direction :output :if-exists :append)
+            (format out "~%* PROJ ~a~%  :PROPERTIES:~%  :PROJECT_PATH: $PROJECTS_DIR/~a~%  :ID: proj-~a~%  :END:~%  Drafted by Project Foundry.~%" 
+                    name name (get-universal-time)))
+          
+          (format nil "SUCCESS - Project ~a scaffolded and linked to GTD.org" name)))))
+#+end_src
+
+* Neuro Prompt
+#+begin_src lisp
+(defun neuro-skill-project-foundry (context)
+  (let* ((payload (getf context :payload))
+         (query (getf payload :query)))
+    (format nil "
+      You are the Project Foundry.
+      The user wants to start a new project - '~a'
+      
+      Extract the PROJECT NAME and the PROJECT TYPE.
+      Return a Lisp plist - (:target :foundry :action :scaffold :name \"extracted-name\" :type \"extracted-type\")
+    " query)))
+#+end_src
+
+* Symbolic Verification & Actuation
+#+begin_src lisp
+(defun verify-skill-project-foundry (proposed-action context)
+  (let* ((payload (getf proposed-action :payload))
+         (action (getf proposed-action :action))
+         (name (getf payload :name))
+         (type (getf payload :type)))
+    
+    (if (eq action :scaffold)
+        (let ((result (scaffold-project name type)))
+          `(:target :emacs :action :message :text ,result))
+        nil)))
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-project-foundry
+  :priority 80
+  :trigger #'trigger-skill-project-foundry
+  :neuro #'neuro-skill-project-foundry
+  :symbolic #'verify-skill-project-foundry)
+#+end_src