8 lines
270 B
Common Lisp
8 lines
270 B
Common Lisp
(defun auth-api-key-get-credentials ()
|
|
(let ((key (uiop:getenv "LLM_API_KEY")))
|
|
(when key
|
|
(list :api-key key))))
|
|
|
|
;; Register as the default auth provider for Gemini during transition
|
|
(org-agent:register-auth-provider :gemini #'auth-api-key-get-credentials)
|