DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[emacs] Fixup gptel configuration

Browse source
This commit is contained in:
John Doty 2025-05-22 18:44:20 +00:00
parent 8aaad8532c
commit a9344c1704
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
.emacs.d/init.el
View file

@ -1431,8 +1431,7 @@ Do this when you edit your project view."
(file-exists-p my/gptel-databricks-path) (file-exists-p my/gptel-databricks-path)
"Whether or not we have the databricks gptel backend.") "Whether or not we have the databricks gptel backend.")
(defun my/get-gptel-backend () (defconst my/gptel-backend
"Produce the right backend based on my environment."
(if my/has-gptel-databricks (if my/has-gptel-databricks
(progn (progn
(add-to-list 'load-path (directory-file-name my/gptel-databricks-path)) (add-to-list 'load-path (directory-file-name my/gptel-databricks-path))
@ -1442,7 +1441,14 @@ Do this when you edit your project view."
:stream t :stream t
:key #'claude-get-api-key :key #'claude-get-api-key
:request-params '(:thinking (:type "enabled" :budget_tokens 2048) :request-params '(:thinking (:type "enabled" :budget_tokens 2048)
:max_tokens 4096)))) :max_tokens 4096)))
"The right backend based on my environment.")
(defconst my/gptel-model
(if my/has-gptel-databricks
'claude-3-7-sonnet-internal-tools
'claude-3-7-sonnet-20250219)
"Which model do we want by default?")
(use-package gptel :ensure (use-package gptel :ensure
:bind (:map gptel-mode-map :bind (:map gptel-mode-map
@ -1452,8 +1458,8 @@ Do this when you edit your project view."
:config :config
(setq (setq
gptel-model 'claude-3-7-sonnet-20250219 ; "claude-3-opus-20240229" also available gptel-model my/gptel-model ; "claude-3-opus-20240229" also available
gptel-backend (my/get-gptel-backend)) gptel-backend my/gptel-backend)
(require 'doty-tools)) (require 'doty-tools))