feat: Add initial skills to contrib

2026-04-16 12:00:23 -04:00
parent c5d3d8c5fa
commit a04d8415f3
22 changed files with 2600 additions and 0 deletions
--- a/skills/org-skill-harness-monitor.org
+++ b/skills/org-skill-harness-monitor.org
@@ -0,0 +1,51 @@
+:PROPERTIES:
+:ID:       6c4a56db-170e-433b-8e6b-66249cdc6b4d
+:CREATED:  [2026-04-12 Sun 20:00]
+:END:
+#+TITLE: SKILL: Harness Monitor
+#+STARTUP: content
+#+FILETAGS: :system:monitor:telemetry:autonomy:
+#+DEPENDS_ON: id:47425a43-2be0-423c-8509-22592cfe9c9e
+
+* Overview
+The *Harness Monitor* provides tools for inspecting the internal state and health of the OpenCortex Lisp Machine.
+
+* Implementation
+
+#+begin_src lisp
+
+(opencortex:def-cognitive-tool :harness-status \"Returns the current operational status of the OpenCortex harness, including loaded skills and telemetry.\"
+  nil
+  :body (lambda (args)
+          (declare (ignore args))
+          (format nil \"HARNESS STATUS:
+- Active Skills: ~a
+- Uptime: ~a seconds
+- Memory Usage: ~a
+- Providers: ~a\"
+                  (hash-table-count opencortex:*skills-registry*)
+                  (get-universal-time)
+                  \"Not implemented\"
+                  opencortex:*provider-cascade*)))
+
+(opencortex:def-cognitive-tool :list-skills \"Lists all currently loaded skills and their metadata.\"
+  nil
+  :body (lambda (args)
+          (declare (ignore args))
+          (let ((output \"LOADED SKILLS:
+\"))
+            (maphash (lambda (name skill)
+                       (setf output (concatenate 'string output
+                                                 (format nil \"- ~a (Priority: ~a, Deps: ~s)~%\"
+                                                         name
+                                                         (opencortex:skill-priority skill)
+                                                         (opencortex:skill-dependencies skill)))))
+                     opencortex:*skills-registry*)
+            output)))
+
+(defskill :skill-harness-monitor
+  :priority 100
+  :trigger (lambda (context) t)
+  :probabilistic (lambda (context) \"You are the Harness Monitor. Use your tools to provide system visibility.\")
+  :deterministic (lambda (action context) action))
+#+end_src