memex/notes/org-skill-provider-gemini.org

SKILL: Gemini Provider Agent (Universal Literate Note)

• Overview
• Phase B: Blueprint (PROTOCOL)
  • 2. Semantic Interfaces
• Phase D: Build (Implementation)
  • Request Execution
• Registration

Overview

The Gemini Provider Agent integrates Google's Gemini API as a pluggable System 1 (neural) backend.

Phase B: Blueprint (PROTOCOL)

2. Semantic Interfaces

"Executes a completion request via the Google Gemini API."

Phase D: Build (Implementation)

Request Execution

(defun execute-gemini-request (prompt system-prompt)
  (let* ((auth (org-agent:get-provider-auth :gemini))
         (api-key (getf auth :api-key))
         (bearer-token (getf auth :bearer-token))
         (endpoint (or (getf auth :endpoint) 
                       "https://generativelanguage.googleapis.com/v1beta/models/gemini-pro:generateContent")))
    
    (unless (or api-key bearer-token)
      (return-from execute-gemini-request "(:type :LOG :payload (:text \"Authentication missing for Gemini\"))"))
    
    (let* ((url (if api-key (format nil "~a?key=~a" endpoint api-key) endpoint))
           (headers `(("Content-Type" . "application/json")
                      ,@(when bearer-token `(("Authorization" . ,(format nil "Bearer ~a" bearer-token))))))
           (body (cl-json:encode-json-to-string
                  `((contents . ((parts . ((text . ,(format nil "~a~%~%Prompt: ~a" system-prompt prompt))))))))))
      (handler-case
          (let* ((response (dex:post url :headers headers :content body :connect-timeout 10 :read-timeout 30))
                 (json (cl-json:decode-json-from-string response)))
            (cdr (assoc :text (cdr (assoc :parts (car (cdr (assoc :parts (car (cdr (assoc :candidates json)))))))))))
        (error (c)
          (format nil "(:type :LOG :payload (:text \"Neural Engine Failure: ~a\"))" c))))))

Registration

;; Register with the kernel
(org-agent:register-neuro-backend :gemini #'execute-gemini-request)

(defskill :skill-provider-gemini
  :priority 90
  :trigger (lambda (context) nil)
  :neuro (lambda (context) nil)
  :symbolic (lambda (action context) action))