Add global params

Author: jcs090218

google-gemini-content.el

@@ -32,6 +32,7 @@
 ;;;###autoload
 (cl-defun google-gemini-content-generate ( text callback
                                            &key
+                                           (parameters google-gemini-parameters)
                                            (content-type "application/json")
                                            (key google-gemini-key)
                                            (model "gemini-pro")
@@ -42,11 +43,22 @@
                                            max-output-tokens
                                            top-p
                                            top-k)
-  "Send generate content request."
+  "Send generate content request.
+
+Arguments TEXT and CALLBACK are required for this type of request.
+TEXT is the content data.  CALLBACK is the execuation after request is made.
+
+Arguments PARAMETERS, CONTENT-TYPE, and KEY are global options;
+however, you can overwrite the value by passing it in.
+
+The rest of the arugments are optional, please see Google Gemini API reference
+page for more information.  Arguments here refer to MODEL, TEMPERATURE,
+STOP-SEQUENCES, MAX-OUTPUT-TOKENS, TOP-P, and TOP-K."
   (google-gemini-request (concat google-gemini-generativelanguage-url
                                  "v1beta/models/" model ":generateContent?key="
                                  key)
     :type "POST"
+    :params parameters
     :headers (google-gemini--headers content-type)
     :data (google-gemini--json-encode
            `(("contents" . [(("parts" . [(("text" . ,text))]))])

google-gemini-count-tokens.el

@@ -30,14 +30,22 @@
 ;;;###autoload
 (cl-defun google-gemini-count-tokens ( text callback
                                        &key
+                                       (parameters google-gemini-parameters)
                                        (content-type "application/json")
-                                       (model "gemini-pro")
-                                       (key google-gemini-key))
-  "Send count tokens request."
+                                       (key google-gemini-key)
+                                       (model "gemini-pro"))
+  "Send count tokens request.
+
+Arguments PARAMETERS, CONTENT-TYPE, and KEY are global options;
+however, you can overwrite the value by passing it in.
+
+The rest of the arugments are optional, please see Google Gemini API reference
+page for more information.  Arguments here refer to MODEL."
   (google-gemini-request (concat google-gemini-generativelanguage-url
                                  "v1beta/models/" model ":countTokens?key="
                                  key)
     :type "POST"
+    :params parameters
     :headers (google-gemini--headers content-type)
     :data (google-gemini--json-encode
            `(("contents" . [((parts . [((text . ,text))]))])))

google-gemini-embedding.el

@@ -32,21 +32,22 @@
 ;;;###autoload
 (cl-defun google-gemini-embedding ( text callback
                                     &key
+                                    (parameters google-gemini-parameters)
                                     (content-type "application/json")
                                     (key google-gemini-key)
-                                    (model "embedding-001")
-                                    (category "HARM_CATEGORY_DANGEROUS_CONTENT")
-                                    (threshold "BLOCK_ONLY_HIGH")
-                                    stop-sequences
-                                    temperature
-                                    max-output-tokens
-                                    top-p
-                                    top-k)
-  "Send generate content request."
+                                    (model "embedding-001"))
+  "Send generate content request.
+
+Arguments PARAMETERS, CONTENT-TYPE, and KEY are global options;
+however, you can overwrite the value by passing it in.
+
+The rest of the arugments are optional, please see Google Gemini API reference
+page for more information.  Arguments here refer to MODEL."
   (google-gemini-request (concat google-gemini-generativelanguage-url
                                  "v1beta/models/" model ":embedContent?key="
                                  key)
     :type "POST"
+    :params parameters
     :headers (google-gemini--headers content-type)
     :data (google-gemini--json-encode
            `(("model" . ,(concat "models/" model))

google-gemini-model.el

@@ -30,15 +30,24 @@
 ;;; API
 
 ;;;###autoload
-(cl-defun google-gemini-model ( name
+(cl-defun google-gemini-model ( model
                                 callback
                                 &key
+                                (parameters google-gemini-parameters)
                                 (key google-gemini-key))
-  "Send request to get model information."
+  "Send request to get model information.
+
+Arguments MODEL and CALLBACK are required for this type of request.
+MODEL is the name of the model.  CALLBACK is the execuation after request
+is made.
+
+Arguments PARAMETERS, and KEY are global options; however, you can overwrite the
+value by passing it in."
   (google-gemini-request (concat google-gemini-generativelanguage-url
-                                 "v1beta/models/" name "?key="
+                                 "v1beta/models/" model "?key="
                                  key)
     :type "GET"
+    :params parameters
     :parser 'json-read
     :complete (cl-function
                (lambda (&key data &allow-other-keys)
@@ -47,12 +56,20 @@
 ;;;###autoload
 (cl-defun google-gemini-models ( callback
                                  &key
+                                 (parameters google-gemini-parameters)
                                  (key google-gemini-key))
-  "Send request to get a list of supported models."
+  "Send request to get a list of supported models.
+
+Arguments CALLBACK is required for this type of request.
+CALLBACK is the execuation after request is made.
+
+Arguments PARAMETERS, and KEY are global options; however, you can overwrite the
+value by passing it in."
   (google-gemini-request (concat google-gemini-generativelanguage-url
                                  "v1beta/models?key="
                                  key)
     :type "GET"
+    :params parameters
     :parser 'json-read
     :complete (cl-function
                (lambda (&key data &allow-other-keys)
@@ -65,8 +82,8 @@
 (defun google-gemini-model-info ()
   "Print a model information."
   (interactive)
-  (if-let ((name (read-string "Name of the model: " "gemini-pro")))
-      (google-gemini-model name (lambda (data) (message "%s" data)))
+  (if-let ((model (read-string "Name of the model: " "gemini-pro")))
+      (google-gemini-model model (lambda (data) (message "%s" data)))
     (user-error "Abort, cancel get model info operation")))
 
 (defvar google-gemini-model-entries nil

google-gemini.el

@@ -74,6 +74,11 @@ auth-source is provided for convenience.")
   :type 'string
   :group 'google-gemini)
 
+(defcustom google-gemini-parameters '()
+  "The parameters for the Google Gemini request."
+  :type 'list
+  :group 'openai)
+
 ;;;###autoload
 (defun google-gemini-key-auth-source (&optional base-url)
   "Retrieve the Google Gemini API key from auth-source given a BASE-URL.