#+TITLE: SKILL: Tool Permissions (org-skill-tool-permissions.org)
#+AUTHOR: Agent
#+FILETAGS: :skill:security:permissions:
#+PROPERTY: header-args:lisp :tangle org-skill-tool-permissions.lisp

* Overview
The *Tool Permissions* skill manages the authorization levels for different cognitive tools.

* Implementation

** Package Context
#+begin_src lisp
(in-package :opencortex)
#+end_src

** Permission Registry
#+begin_src lisp
(defvar *tool-permissions* (make-hash-table :test 'equal))

(defun set-tool-permission (tool-name level)
  "Sets the permission level for a tool."
  (setf (gethash (string-downcase (string tool-name)) *tool-permissions*) level))

(defun get-tool-permission (tool-name)
  "Retrieves the permission level for a tool."
  (gethash (string-downcase (string tool-name)) *tool-permissions* :ask))
#+end_src

** Skill Registration
#+begin_src lisp
(defskill :skill-tool-permissions
  :priority 600
  :trigger (lambda (ctx) (declare (ignore ctx)) nil))
#+end_src