32 lines
847 B
Org Mode
32 lines
847 B
Org Mode
#+TITLE: SKILL: Scribe (org-skill-scribe.org)
|
|
#+AUTHOR: Agent
|
|
#+FILETAGS: :skill:scribe:documentation:
|
|
#+PROPERTY: header-args:lisp :tangle org-skill-scribe.lisp
|
|
|
|
* Overview
|
|
The *Scribe Skill* manages the agent's internal documentation and logs.
|
|
|
|
* Implementation
|
|
|
|
** Package Context
|
|
#+begin_src lisp
|
|
(in-package :opencortex)
|
|
#+end_src
|
|
|
|
** Documentation Logic
|
|
#+begin_src lisp
|
|
(defun scribe-log-event (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 :skill-scribe
|
|
:priority 100
|
|
:trigger (lambda (ctx) (member (getf ctx :type) '(:LOG :STATUS)))
|
|
:deterministic (lambda (action ctx) (declare (ignore action)) (scribe-log-event ctx) nil))
|
|
#+end_src
|