feat(psf): transition to Order 2 (Sovereign Architect) with advanced skill graph and philosophical alignment
This commit is contained in:
@@ -40,6 +40,9 @@ Interfaces for querying and updating the GTD state. Source of truth is `gtd.org`
|
||||
|
||||
(defun gtd-update-project-state (project-id new-state)
|
||||
"Updates the :PSF-STATE: property of a project.")
|
||||
|
||||
(defun gtd-breakdown-project (project-id)
|
||||
"Uses the Long-Horizon Planning agent to generate NEXT steps for a stalled project.")
|
||||
#+end_src
|
||||
|
||||
* Phase D: Build (Implementation)
|
||||
@@ -51,6 +54,14 @@ Interfaces for querying and updating the GTD state. Source of truth is `gtd.org`
|
||||
(let ((gtd-file (or (uiop:getenv "GTD_FILE") "gtd.org")))
|
||||
(kernel-log "GTD - Scanning commitments in ~a" gtd-file)
|
||||
(uiop:run-program (list "grep" "^\\*\\* NEXT" gtd-file) :output :string)))
|
||||
|
||||
(defun gtd-breakdown-project (project-id)
|
||||
"Autonomously expands a complex project into actionable NEXT steps."
|
||||
(let* ((obj (org-agent:lookup-object project-id))
|
||||
(title (getf (org-agent:org-object-attributes obj) :TITLE))
|
||||
(content (org-agent:org-object-content obj)))
|
||||
(org-agent:spawn-task
|
||||
(format nil "Break down the project '~a' into 3 actionable NEXT steps. Context: ~a" title content))))
|
||||
#+end_src
|
||||
|
||||
** Shadow Orchestration
|
||||
|
||||
Reference in New Issue
Block a user