refactor: moved org-agent to its own repository as a submodule

2026-03-27 15:46:53 -04:00
parent 01f76a4570
commit b7e082c403
176 changed files with 19686 additions and 9665 deletions
--- a/notes/skill-provider-openrouter.org
+++ b/notes/skill-provider-openrouter.org
@@ -0,0 +1,63 @@
+#+TITLE - OpenRouter Provider Skill
+#+AUTHOR - org-agent
+#+SKILL_NAME - skill-provider-openrouter
+#+DEPENDS_ON - skill-environment-config
+
+This skill registers OpenRouter as a pluggable System 1 backend, providing access to hundreds of models.
+
+* Backend Implementation
+#+begin_src lisp
+(defun execute-openrouter-request (prompt system-prompt)
+  "Executes a completion request via the OpenRouter API (OpenAI-compatible)."
+  (let ((api-key (org-agent::get-env "OPENROUTER_API_KEY"))
+        (config-pkg (find-package :org-agent.skills.skill-environment-config)))
+    (unless api-key
+      (return-from execute-openrouter-request "(:type :LOG :payload (:text \"OpenRouter key missing\"))"))
+    
+    (let* ((get-config-fn (when config-pkg (find-symbol "GET-CONFIG-ATTRIBUTE" config-pkg)))
+           (get-tiered-fn (when config-pkg (find-symbol "GET-TIERED-MODEL" config-pkg)))
+           ;; Try to find a specific OpenRouter model, or a generic tiered model
+           (model (cond
+                    ((and get-config-fn (funcall get-config-fn :LLM_MODEL_OPENROUTER nil))
+                     (funcall get-config-fn :LLM_MODEL_OPENROUTER nil))
+                    ((and get-tiered-fn (funcall get-tiered-fn :fast nil))
+                     (funcall get-tiered-fn :fast nil))
+                    (t "meta-llama/llama-3-70b-instruct")))
+           (url "https://openrouter.ai/api/v1/chat/completions")
+           (body (cl-json:encode-json-to-string
+                  `((model . ,model)
+                    (messages . (((role . "system") (content . ,system-prompt))
+                                 ((role . "user") (content . ,prompt))))))))
+      (handler-case
+          (let* ((response (dex:post url
+                                     :headers `(("Content-Type" . "application/json")
+                                                ("Authorization" . ,(format nil "Bearer ~a" api-key))
+                                                ("HTTP-Referer" . "https://github.com/org-agent/org-agent")                                                ("X-Title" . "org-agent"))
+                                     :content body))
+                 (json (cl-json:decode-json-from-string response)))
+            ;; Extract content from OpenAI-compatible response structure
+            (cdr (assoc :content (cdr (assoc :message (car (cdr (assoc :choices json))))))))
+        (error (c)
+          (format nil "(:type :LOG :payload (:text \"OpenRouter Failure (~a) - ~a\"))" model c))))))
+
+;; Register the backend
+(org-agent:register-neuro-backend :openrouter #'execute-openrouter-request)
+
+(defun get-available-models ()
+  "Returns a curated list of top LLM models supported by OpenRouter, including free tiers."
+  '((:id "moonshotai/kimi-k2.5" :context "128k" :tier :powerful)
+    (:id "anthropic/claude-3.5-sonnet" :context "200k" :tier :powerful)
+    (:id "google/gemini-flash-1.5" :context "1m" :tier :fast)
+    (:id "google/gemma-2-9b-it:free" :context "8k" :tier :free)
+    (:id "mistralai/pixtral-12b:free" :context "32k" :tier :free)
+    (:id "openrouter/auto" :context "varying" :tier :free)))
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-provider-openrouter
+  :priority 100
+  :trigger (lambda (context) nil)
+  :neuro (lambda (context) nil)
+  :symbolic (lambda (action context) action))
+#+end_src