PSF: Foundry Progress Sync. 57 high-fidelity blueprints established. Open Fleet routing (Kimi/Qwen) active. GTD updated.

projects/org-skill-provider-gemini/src/provider-logic.lisp

@@ -1,21 +1,11 @@
-(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))))))
+(in-package :org-agent)
+
+(defun execute-gemini-api-request (prompt system-prompt &key model)
+  "Implementation uses the standard kernel execute-gemini-request logic."
+  (org-agent::execute-gemini-request prompt system-prompt :model model))
+
+(defun execute-gemini-web-request (prompt system-prompt &key model)
+  (declare (ignore model))
+  "Dispatches to the browser-based Web Research skill."
+  (let ((full-prompt (format nil "~a~%~%Prompt: ~a" system-prompt prompt)))
+    (uiop:symbol-call :org-agent.skills.org-skill-web-research :ask-gemini-web full-prompt)))