(defun generate-with-search (model-id prompt)

(let* ((payload (make-hash-table :test 'equal)))

(setf (gethash "contents" payload)

(list (let ((contents (make-hash-table :test 'equal)))

(setf (gethash "parts" contents)

(list (let ((part (make-hash-table :test 'equal)))

(setf (gethash "text" part) prompt)

part)))

contents)))

(setf (gethash "tools" payload)

(list (let ((tool (make-hash-table :test 'equal)))

(setf (gethash "google_search" tool)

(make-hash-table :test 'equal))

tool)))

(let* ((api-url (concatenate 'string *gemini-api-base-url* model-id ":generateContent"))

(data (cl-json:encode-json-to-string payload))

(response (dex:post api-url

:headers `(("Content-Type" . "application/json")

("x-goog-api-key" . ,*google-api-key*))

:content data))

(response-string (if (stringp response)

response

(flex:octets-to-string response :external-format :utf-8)))

(decoded-response (cl-json:decode-json-from-string response-string))

(candidates-pair (assoc :CANDIDATES decoded-response))

(candidates (cdr candidates-pair))

(candidate (first candidates))

(content-pair (assoc :CONTENT candidate))

(content (cdr content-pair))

(parts-pair (assoc :PARTS content))

(parts (cdr parts-pair))

(first-part (first parts))

(text-pair (assoc :TEXT first-part))

(text (cdr text-pair)))

text)))