12 lines
441 B
Common Lisp
12 lines
441 B
Common Lisp
(defun auth-api-key-get-credentials ()
|
|
(let ((key (uiop:getenv "LLM_API_KEY")))
|
|
(when key
|
|
(list :api-key key))))
|
|
|
|
(defun register-auth-provider (provider-name credential-fn)
|
|
"Register a simple API key provider in the kernel."
|
|
(org-agent:register-auth-provider provider-name credential-fn))
|
|
|
|
;; Register as the default auth provider for Gemini during transition
|
|
(register-auth-provider :gemini #'auth-api-key-get-credentials)
|