passepartout/skills/org-skill-peripheral-vision.org

SKILL: Peripheral Vision (org-skill-peripheral-vision.org)

• Overview
• Implementation
  • Package Context
  • Context Logic
  • Skill Registration

Overview

The Peripheral Vision skill enhances the context engine with high-level summaries of distant memory nodes.

Implementation

Package Context

(in-package :opencortex)

Context Logic

(defun peripheral-vision-summarize (obj-id)
  "Generates a low-resolution summary of an object."
  (let ((obj (lookup-object obj-id)))
    (if obj
        (format nil "Node: ~a (~a)" (getf (org-object-attributes obj) :TITLE) obj-id)
        "[Unknown Node]))

Skill Registration

(defskill :skill-peripheral-vision
  :priority 100
  :trigger (lambda (ctx) (declare (ignore ctx)) nil))