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

emacs: better sly setup with faster loading, add chatgtp as model

Browse Source
This commit is contained in:
Joseph Ferano 2025-09-04 13:41:47 +07:00
parent 4725492a7d
commit 8213453bce
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
.config/emacs/init.org
View File

@ -236,7 +236,7 @@ Finish up
org-transclusion org-transclusion
valign valign
;; Programming Languages ;; Programming Languages
sly gnuplot
tuareg tuareg
dune dune
merlin merlin
@ -2323,11 +2323,18 @@ These help speed eglot up apparently [[https://www.reddit.com/r/emacs/comments/1
(setq gptel-default-mode #'org-mode) (setq gptel-default-mode #'org-mode)
(setq (setq
gptel-model 'claude-sonnet-4-20250514 gptel-model 'claude-sonnet-4-20250514
gptel-backend (gptel-make-anthropic "Claude" 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 :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)))
;; (add-hook 'gptel-post-response-functions #'font-lock-ensure)
(setq gptel-prompt-prefix-alist '((markdown-mode . "### ") (setq gptel-prompt-prefix-alist '((markdown-mode . "### ")
(org-mode . "* ") (org-mode . "* ")
@ -2336,7 +2343,7 @@ These help speed eglot up apparently [[https://www.reddit.com/r/emacs/comments/1
(evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a a") #'gptel) (evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a a") #'gptel)
(evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a RET") #'gptel-ask) (evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a RET") #'gptel-ask)
(evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a M") #'gptel-mode) (evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a M") #'gptel-mode)
(evil-define-key 'visual joe/evil-space-mode-map (kbd "SPC a c") #'gptel-add) ;; Will delete context at point (evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a c") #'gptel-add) ;; Will delete context at point
(evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a <backspace>") #'joe/gptel-context-remove-all) (evil-define-key 'normal joe/evil-space-mode-map (kbd "SPC a <backspace>") #'joe/gptel-context-remove-all)
(evil-define-key 'visual joe/evil-space-mode-map (kbd "SPC a r") #'gptel-rewrite) (evil-define-key 'visual joe/evil-space-mode-map (kbd "SPC a r") #'gptel-rewrite)
@ -2470,8 +2477,13 @@ And we do the rest here, including a macro
#+end_src #+end_src
*** Common Lisp *** Common Lisp
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq sly-lisp-implementations '((sbcl ("/usr/local/bin/sbcl" "--dynamic-space-size" "4096")) (setq inferior-lisp-program "/usr/local/bin/sbcl")
(setq sly-lisp-implementations '((sbcl ("/usr/local/bin/sbcl"
"--dynamic-space-size" "4096"
"--core" "/home/joe/.config/emacs/sbcl.core-for-sly"))
(ecl ("/usr/bin/ecl")))) (ecl ("/usr/bin/ecl"))))
(setq sly-symbol-completion-mode nil)
(defun joe/sly-copy-call-to-repl () (defun joe/sly-copy-call-to-repl ()
"Copy name/symbol of toplevel sexp to sly-mREPL and select sly-mREPL." "Copy name/symbol of toplevel sexp to sly-mREPL and select sly-mREPL."
(interactive) (interactive)
@ -2485,6 +2497,7 @@ And we do the rest here, including a macro
(with-selected-window replwin (with-selected-window replwin
(insert string) (insert string)
(forward-char -1)))) (forward-char -1))))
#+end_src #+end_src
*** Odin *** Odin
#+begin_src emacs-lisp #+begin_src emacs-lisp