diff --git a/skills/org-skill-bouncer.org b/skills/org-skill-bouncer.org index e8582ac..5a3edfe 100644 --- a/skills/org-skill-bouncer.org +++ b/skills/org-skill-bouncer.org @@ -87,7 +87,7 @@ The primary entry point for all high-impact actions. It blocks or queues actions ;; 3. High-Impact Target Vector (Authorization Required) ((or (member target '(:shell)) (and (eq target :tool) (member (getf payload :tool) '("shell" "repair-file") :test #'string=)) - (and (eq target :emacs) (eq (getf payload :action) :eval))) + (and (eq target :EMACS) (eq (getf payload :action) :eval))) (harness-log "SECURITY: High-impact action ~a requires approval." (or (getf payload :tool) target)) `(:type :EVENT :payload (:sensor :approval-required :action ,action))) @@ -134,7 +134,7 @@ The Bouncer skill reacts to approval requirements by creating flight plan nodes, (id (org-id-new))) (harness-log "BOUNCER: Creating flight plan node...") ;; Create the node in Emacs (or inbox) - (list :type :REQUEST :target :emacs :action :insert-node + (list :type :REQUEST :target :EMACS :action :insert-node :id id :attributes `(:TITLE "Flight Plan: High-Risk Action" :TODO "PLAN" :TAGS ("FLIGHT_PLAN") diff --git a/src/act.lisp b/src/act.lisp index d5bd53f..0d41eba 100644 --- a/src/act.lisp +++ b/src/act.lisp @@ -1,7 +1,7 @@ (in-package :opencortex) -(defvar *default-actuator* :cli) -(defvar *silent-actuators* '(:cli :system-message :emacs)) +(defvar *default-actuator* :CLI) +(defvar *silent-actuators* '(:CLI :SYSTEM-MESSAGE :EMACS)) (defun initialize-actuators () "Loads actuator routing defaults from environment variables and registers core harness actuators."