Amr Gharbeia
d35aea391e
- New system-event-orchestrator skill with hook registry, cron registry, and tier classifier - Three dispatch tiers: :reflex (no LLM), :cognition (light), :reasoning (full) - Org-mode timestamp parsing for repeat patterns (+1w, +1d, +1m) - Registers on heartbeat via defskill, dispatches due cron jobs - Fix all remaining harness-log → log-message references across org files
11 lines
422 B
Common Lisp
11 lines
422 B
Common Lisp
(defun archivist-log (signal)
|
|
"Logs a metabolic signal for later analysis."
|
|
(let ((type (getf signal :type))
|
|
(payload (getf signal :payload)))
|
|
(log-message "SCRIBE: [~a] ~s" type payload)))
|
|
|
|
(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))
|