#+TITLE: SKILL: Scribe (org-skill-scribe.org)
#+AUTHOR: Agent
#+FILETAGS: :skill:scribe:documentation:
#+PROPERTY: header-args:lisp :tangle ../lisp/system-archivist.lisp

* Overview
The *Scribe Skill* manages the agent's internal documentation and logs.

* Implementation

** Documentation Logic
#+begin_src lisp
(defun archivist-log (signal)
  "Logs a metabolic signal for later analysis."
  (let ((type (getf signal :type))
        (payload (getf signal :payload)))
    (harness-log "SCRIBE: [~a] ~s" type payload)))
#+end_src

** Skill Registration
#+begin_src lisp
(defskill :passepartout-system-archivist
  :priority 100
  :trigger (lambda (ctx) (member (getf ctx :type) '(:LOG :STATUS)))
  :deterministic (lambda (action ctx) (declare (ignore action)) (archivist-log ctx) nil))
#+end_src