#+TITLE - Brain Mapper Skill
#+AUTHOR - org-agent
#+SKILL_NAME - skill-brain-mapper

This skill allows the agent to visualize and reason about its own "Brain" by mapping the Skill Graph and analyzing performance telemetry.

* Trigger
Triggers on requests to see the agent's internal logic or skill network.

#+begin_src lisp
(defun trigger-skill-brain-mapper (context)
  (let* ((payload (getf context :payload))
         (text (or (getf payload :text) "")))
    (or (search "show me your brain" text :test #'string-equal)
        (search "skill graph" text :test #'string-equal)
        (search "how do you think" text :test #'string-equal)
        (search "optimize priorities" text :test #'string-equal))))
#+end_src

* Neuro Prompt
System 1 describes the current hierarchy and identifies potential bottlenecks based on telemetry.

#+begin_src lisp
(defun neuro-skill-brain-mapper (context)
  (let* ((skills (org-agent:context-list-all-skills))
         ;; Gather telemetry for each skill
         (telemetry (mapcar (lambda (s) 
                              (let ((name (getf s :name)))
                                (list :name name :stats (org-agent:context-get-skill-telemetry name))))
                            skills)))
    (format nil "
      You are the Cognitive Architect of this Lisp Machine.
      The user wants to see your current internal logic graph and performance.
      
      CURRENT SKILLS, PRIORITIES & TELEMETRY -
      ~a
      
      TASK -
      1. Explain your cognitive hierarchy. 
      2. Identify any 'Heavy' skills (high total-time) or 'Failing' skills (high failures).
      3. If a skill is underperforming, suggest a new priority to optimize the loop.
      
      Return a Lisp plist - (:target :emacs :action :message :text \"your analysis\")
      If optimization is needed, also return a (:target :system :action :set-priority :skill \"...\" :priority N) action.
    " telemetry)))
#+end_src

* Registration
#+begin_src lisp
(defskill :skill-brain-mapper
  :priority 95 ; High priority meta-cognition
  :trigger #'trigger-skill-brain-mapper
  :neuro #'neuro-skill-brain-mapper
  :symbolic (lambda (action context) action))
#+end_src