From 61fa2329f553f9c7962e968e1ec98ae675903b70 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Tue, 12 Aug 2025 08:52:51 -0700 Subject: users -> home --- home/programs/emacs/site-lisp/init-llm.el | 33 +++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 home/programs/emacs/site-lisp/init-llm.el (limited to 'home/programs/emacs/site-lisp/init-llm.el') diff --git a/home/programs/emacs/site-lisp/init-llm.el b/home/programs/emacs/site-lisp/init-llm.el new file mode 100644 index 0000000..48346e6 --- /dev/null +++ b/home/programs/emacs/site-lisp/init-llm.el @@ -0,0 +1,33 @@ +;;; init-llm.el --- Configure LLMs -*- lexical-binding: t -*- +;; Author: Franck Cuny + +;;; Commentary: + +;; Configure completions + +;;; Code: +(require 's) + +(defun fcuny/read-anthropic-key () + "Read and return the API key for anthropic." + (with-temp-buffer + (insert-file-contents "~/.local/share/agenix/anthropic-api-key") + (s-trim (buffer-string)))) + +(use-package gptel + :custom + (gptel-default-mode 'org-mode) + :config + (gptel-make-anthropic "Claude" :stream t :key (lambda () (fcuny/read-anthropic-key)))) + +(use-package aidermacs + :bind ("C-c a" . aidermacs-transient-menu) + :custom + (aider-args '("--no-check-update" "--no-show-model-warnings")) + (aidermacs-default-model "claude-3-7-sonnet-latest") + :config + (setenv "ANTHROPIC_API_KEY" (fcuny/read-anthropic-key))) + +(provide 'init-llm) + +;;; init-llm.el ends here -- cgit v1.2.3