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)))