refactor: moved org-agent to its own repository as a submodule
This commit is contained in:
52
notes/skill-workspace-manager.org
Normal file
52
notes/skill-workspace-manager.org
Normal file
@@ -0,0 +1,52 @@
|
||||
#+TITLE - Workspace Manager Skill
|
||||
#+AUTHOR - org-agent
|
||||
#+SKILL_NAME - skill-workspace-manager
|
||||
|
||||
This skill automates the Para/Memex workflow, such as archiving DONE tasks and organizing the inbox.
|
||||
|
||||
* Trigger
|
||||
Triggers on buffer saves or background heartbeats.
|
||||
|
||||
#+begin_src lisp
|
||||
(defun trigger-skill-workspace-manager (context)
|
||||
(let* ((payload (getf context :payload))
|
||||
(sensor (getf payload :sensor)))
|
||||
(or (eq sensor :buffer-update)
|
||||
(eq sensor :heartbeat))))
|
||||
#+end_src
|
||||
|
||||
* Symbolic Logic
|
||||
#+begin_src lisp
|
||||
(defun archive-completed-tasks ()
|
||||
"Identify DONE tasks and suggest archiving."
|
||||
(let ((done-tasks (org-agent:context-query-store :todo-state "DONE" :type :HEADLINE)))
|
||||
(when done-tasks
|
||||
(kernel-log "WORKSPACE - Found ~a tasks ready for archiving." (length done-tasks))
|
||||
;; Return a list of IDs to move
|
||||
(mapcar #'org-agent:org-object-id done-tasks))))
|
||||
#+end_src
|
||||
|
||||
* Neuro Prompt
|
||||
#+begin_src lisp
|
||||
(defun neuro-skill-workspace-manager (context)
|
||||
(let ((ready-to-archive (archive-completed-tasks))
|
||||
(archive-dir (org-agent::get-env "ARCHIVES_DIR" "/app/8_archives/")))
|
||||
(if ready-to-archive
|
||||
(format nil "
|
||||
WORKSPACE UPDATE -
|
||||
I found these tasks marked DONE in the Atomic Notes (Zettelkasten) - ~a
|
||||
|
||||
Suggest an Org-mode action to move them to the '~a' folder.
|
||||
Return a Lisp plist - (:target :emacs :action :message :text \"I found completed tasks. Should I archive them?\")
|
||||
" ready-to-archive archive-dir)
|
||||
nil)))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
#+begin_src lisp
|
||||
(defskill :skill-workspace-manager
|
||||
:priority 40
|
||||
:trigger #'trigger-skill-workspace-manager
|
||||
:neuro #'neuro-skill-workspace-manager
|
||||
:symbolic (lambda (action context) action))
|
||||
#+end_src
|
||||
Reference in New Issue
Block a user