From 8213453bce38dc3d99e28d294fae1f2b4ecb2b2c Mon Sep 17 00:00:00 2001
From: Joseph Ferano <joseph@ferano.io>
Date: Thu, 4 Sep 2025 13:41:47 +0700
Subject: [PATCH] emacs: better sly setup with faster loading, add chatgtp as
 model

---
 .config/emacs/init.org | 25 +++++++++++++++++++------
 1 file changed, 19 insertions(+), 6 deletions(-)

diff --git a/.config/emacs/init.org b/.config/emacs/init.org
index 5dd4aab..df47704 100644
--- a/.config/emacs/init.org
+++ b/.config/emacs/init.org
@@ -236,7 +236,7 @@ Finish up
    org-transclusion
    valign
    ;; Programming Languages
-   sly
+   gnuplot
    tuareg
    dune
    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-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
                                   (insert-file-contents (expand-file-name "gptel-key" user-emacs-directory))
-                                  (buffer-string))))
-;; (add-hook 'gptel-post-response-functions #'font-lock-ensure)
+                                  (buffer-string)))
 
 (setq gptel-prompt-prefix-alist '((markdown-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 RET") #'gptel-ask)
 (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 '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
 *** Common 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"))))
+(setq sly-symbol-completion-mode nil)
+
 (defun joe/sly-copy-call-to-repl ()
   "Copy name/symbol of toplevel sexp to sly-mREPL and select sly-mREPL."
   (interactive)
@@ -2485,6 +2497,7 @@ And we do the rest here, including a macro
     (with-selected-window replwin
       (insert string)
       (forward-char -1))))
+
 #+end_src
 *** Odin
 #+begin_src emacs-lisp