63 lines
3.2 KiB
Org Mode
63 lines
3.2 KiB
Org Mode
#+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 |