branch: elpa/gptel
commit 67111b43ab5e762ce459aeaf37434ef0f95a221c
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>

    gptel-bedrock: Add Claude Sonnet/Opus 4 models
    
    * gptel-bedrock.el (gptel-anthropic, gptel-bedrock-model-ids)
    (gptel--bedrock-models, gptel-make-bedrock): Add Claude
    Sonnet/Opus 4 models.
---
 gptel-bedrock.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gptel-bedrock.el b/gptel-bedrock.el
index 411cdb7838..3f8b858bb1 100644
--- a/gptel-bedrock.el
+++ b/gptel-bedrock.el
@@ -28,7 +28,6 @@
 (require 'cl-generic)
 (require 'map)
 (require 'gptel)
-(require 'gptel-anthropic)
 (require 'mail-parse)
 
 (cl-defstruct (gptel-bedrock (:constructor gptel--make-bedrock)
@@ -536,7 +535,9 @@ Convenient to use with `cl-multiple-value-bind'"
 
 (defvar gptel-bedrock--model-ids
   ;; https://docs.aws.amazon.com/bedrock/latest/userguide/models-supported.html
-  '((claude-3-5-sonnet-20241022  . "anthropic.claude-3-5-sonnet-20241022-v2:0")
+  '((claude-sonnet-4-20250514    . "anthropic.claude-sonnet-4-20250514-v1:0")
+    (claude-opus-4-20250514      . "anthropic.claude-opus-4-20250514-v1:0")
+    (claude-3-5-sonnet-20241022  . "anthropic.claude-3-5-sonnet-20241022-v2:0")
     (claude-3-5-sonnet-20240620  . "anthropic.claude-3-5-sonnet-20240620-v1:0")
     (claude-3-5-haiku-20241022   . "anthropic.claude-3-5-haiku-20241022-v1:0")
     (claude-3-opus-20240229      . "anthropic.claude-3-opus-20240229-v1:0")
@@ -563,8 +564,7 @@ IDs can be added or replaced by calling
 \(push (model-name . \"model-id\") gptel-bedrock--model-ids).")
 
 (defvar gptel--bedrock-models
-  (let ((known-ids (mapcar #'car gptel-bedrock--model-ids)))
-    (cl-remove-if-not (lambda (model) (memq (car model) known-ids)) 
gptel--anthropic-models))
+  (mapcar #'car gptel-bedrock--model-ids)
   "List of available AWS Bedrock models and associated properties.")
 
 (defun gptel-bedrock--get-model-id (model &optional region)
@@ -615,6 +615,7 @@ Keyword arguments:
 REGION - AWS region name (e.g. \"us-east-1\")
 MODELS - The list of models supported by this backend
 MODEL-REGION - one of apac, eu, us or nil
+CURL-ARGS - additional curl args
 STREAM - Whether to use streaming responses or not."
   (declare (indent 1))
   (unless (and gptel-use-curl (version<= "8.5" (gptel-bedrock--curl-version)))

Reply via email to