amr/memex
1
0
Fork 0
Code Issues 12 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

feat: implemented verified Shell Actuator skill

Browse Source 
- Enabled execution of whitelisted shell commands via OACP.
- Added neuro-cognitive analysis for command results.
- Fixed authentication fallback for background daemon.
- Finalized Emacs UI robustness for all message types.
This commit is contained in:
Amr Gharbeia
2026-04-04 13:37:47 -04:00
parent 51845ae7f6
commit 65a14784d3
13 changed files with 3147 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
notes/org-skill-chat.org
View File

@@ -56,10 +56,15 @@ Interfaces for conversational event handling and UI integration. Source of truth
#+begin_src lisp :tangle ../projects/org-skill-chat/src/chat-logic.lisp
(defun verify-skill-chat (proposed-action context)
(if (and (listp proposed-action)
(eq (getf proposed-action :target) :emacs)
(eq (getf (getf proposed-action :payload) :action) :insert-at-end))
(or (and (member (getf proposed-action :type) '(:request :REQUEST))
(or (and (member (getf proposed-action :target) '(:emacs :EMACS))
(member (getf (getf proposed-action :payload) :action) '(:insert-at-end :INSERT-AT-END)))
(and (member (getf proposed-action :target) '(:shell :SHELL))
(getf (getf proposed-action :payload) :cmd))))
(member (getf proposed-action :type) '(:response :RESPONSE :log :LOG))))
proposed-action
'(:type :REQUEST :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text "\n\n*System Error:* Chat agent failed to format response as a valid Lisp action."))))
(let ((err-text (format nil "\n\n*System Error:* Chat agent returned invalid action: ~s" proposed-action)))
`(:type :request :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text ,err-text)))))
#+end_src
** Neural Response Generation
@@ -87,8 +92,11 @@ EXAMPLE OF A BAD RESPONSE:
Okay, here is your answer:
(:type :request ...)
EXAMPLE OF A GOOD RESPONSE:
(:type :request :target :emacs :payload (:action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* <Your Org-mode Response Here>\"))" assistant user))))
EXAMPLE OF A GOOD RESPONSE (CHAT):
(:type :request :target :emacs :payload (:action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* <Your Org-mode Response Here>\"))
EXAMPLE OF A GOOD RESPONSE (SHELL EXECUTION):
(:type :request :target :shell :payload (:cmd \"ls -la\"))" assistant user))))
#+end_src
* Registration