12 lines
562 B
Common Lisp
12 lines
562 B
Common Lisp
(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)))
|