JosephFerano/dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

emacs: gptel clean up, comment

Browse Source
This commit is contained in:
Joseph Ferano 2025-11-16 15:09:05 +07:00
parent 6a47cd3960
commit a3977ac72c
1 changed files with 11 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
.config/emacs/init.org
View File

@ -844,8 +844,8 @@ Fill region is great, except when you don't need it...
(define-key global-map (kbd "C-=") #'er/expand-region)
(define-key global-map (kbd "C-+") #'er/contract-region)
#+end_src
*** Boon
#+begin_src emacs-lisp :tangle no
*** COMMENT Boon
#+begin_src emacs-lisp
(defun joe/psp-scroll-down-half-page ()
(interactive)
(pixel-scroll-precision-scroll-down-page (/ (window-pixel-height) 2)))
@ -2349,20 +2349,12 @@ newly opened buffer belongs to an LSP session and if it does, start lsp
** AI
#+begin_src emacs-lisp
(setq gptel-default-mode #'org-mode)
(setq
gptel-model 'claude-sonnet-4-20250514
gptel-api-key (with-temp-buffer
(insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
(buffer-string)))
;; (add-hook 'gptel-post-response-functions #'font-lock-ensure)
;; (gptel-make-openai "ChatGPT"
;; :stream t :key (with-temp-buffer
;; (insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
;; (buffer-string)))
(gptel-make-anthropic "Claude"
:stream t :key (with-temp-buffer
(insert-file-contents (expand-file-name "gptel-key" user-emacs-directory))
(buffer-string)))
(setq gptel-api-key (with-temp-buffer
(insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
(buffer-string)))
(gptel-make-anthropic "Claude" :stream t :key (with-temp-buffer
(insert-file-contents (expand-file-name "gptel-key" user-emacs-directory))
(buffer-string)))
(setq gptel-prompt-prefix-alist '((markdown-mode . "### ")
(org-mode . "* ")
@ -2382,17 +2374,10 @@ newly opened buffer belongs to an LSP session and if it does, start lsp
gptel-context-remove-all without confirmation
#+begin_src emacs-lisp
(defun joe/gptel-context-remove-all (&optional verbose)
(defun joe/gptel-context-remove-all ()
"Remove all gptel context. No confirmation."
(interactive (list t))
(if (null gptel-context--alist)
(message "No gptel context sources to remove.")
(cl-loop
for (source . ovs) in gptel-context--alist
if (bufferp source) do ;Buffers and buffer regions
(mapc #'gptel-context-remove ovs)
else do (gptel-context-remove source) ;files or other types
finally do (setq gptel-context--alist nil))))
(interactive)
(gptel-context-remove-all nil))
#+end_src
gptel-ask command so I can ask LLMs about whatever I have in my region. Might be