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

29
.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/expand-region)
(define-key global-map (kbd "C-+") #'er/contract-region) (define-key global-map (kbd "C-+") #'er/contract-region)
#+end_src #+end_src
*** Boon *** COMMENT Boon
#+begin_src emacs-lisp :tangle no #+begin_src emacs-lisp
(defun joe/psp-scroll-down-half-page () (defun joe/psp-scroll-down-half-page ()
(interactive) (interactive)
(pixel-scroll-precision-scroll-down-page (/ (window-pixel-height) 2))) (pixel-scroll-precision-scroll-down-page (/ (window-pixel-height) 2)))
@ -2349,18 +2349,10 @@ newly opened buffer belongs to an LSP session and if it does, start lsp
** AI ** AI
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq gptel-default-mode #'org-mode) (setq gptel-default-mode #'org-mode)
(setq (setq gptel-api-key (with-temp-buffer
gptel-model 'claude-sonnet-4-20250514
gptel-api-key (with-temp-buffer
(insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory)) (insert-file-contents (expand-file-name "gptel-gpt-key" user-emacs-directory))
(buffer-string))) (buffer-string)))
;; (add-hook 'gptel-post-response-functions #'font-lock-ensure) (gptel-make-anthropic "Claude" :stream t :key (with-temp-buffer
;; (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)) (insert-file-contents (expand-file-name "gptel-key" user-emacs-directory))
(buffer-string))) (buffer-string)))
@ -2382,17 +2374,10 @@ newly opened buffer belongs to an LSP session and if it does, start lsp
gptel-context-remove-all without confirmation gptel-context-remove-all without confirmation
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun joe/gptel-context-remove-all (&optional verbose) (defun joe/gptel-context-remove-all ()
"Remove all gptel context. No confirmation." "Remove all gptel context. No confirmation."
(interactive (list t)) (interactive)
(if (null gptel-context--alist) (gptel-context-remove-all nil))
(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))))
#+end_src #+end_src
gptel-ask command so I can ask LLMs about whatever I have in my region. Might be gptel-ask command so I can ask LLMs about whatever I have in my region. Might be