From 14140211b1b0caa3772780efafb198e5720b4a74 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 1 May 2021 15:22:49 -0500
Subject: Switch to SLY for Lisp REPL

I've kept SLIME's config around, in case I need it -- which REPL is loaded
depends on the `acdw/cl-ide' variable.
---
 init.el | 41 +++++++++++++++++++++++++----------------
 1 file changed, 25 insertions(+), 16 deletions(-)

diff --git a/init.el b/init.el
index b3fcfee..934f3db 100644
--- a/init.el
+++ b/init.el
@@ -752,26 +752,35 @@ if ripgrep is installed, otherwise `consult-grep'."
 
 (setup (:straight geiser))
 
-(setup (:straight slime)
+(setup common-lisp-ide
+  (defvar acdw/cl-ide :sly)
   (defvar acdw/lisp-bin (or (executable-find "sbcl")
                             (executable-find "clisp")))
   (:needs acdw/lisp-bin)
-  
-  (:also-load slime-autoloads)
-  
   (:option inferior-lisp-program acdw/lisp-bin)
-
-  (when-let ((slime-helper (or (expand-file-name-exists-p
-                                "~/quicklisp/slime-helper.el")
-                               (expand-file-name-exists-p
-                                "~/var/quicklisp/slime-helper.el"))))
-    (load slime-helper))
-
-  (with-eval-after-load 'company
-    (setup (:straight slime-company)
-      (:option slime-company-completion 'fuzzy
-               slime-company-after-completion nil)
-      (slime-setup '(slime-fancy slime-company)))))
+  
+  (pcase acdw/cl-ide
+    (:slime
+     (setup (:straight slime)
+       (:also-load slime-autoloads)
+       
+       (when-let ((slime-helper (or (expand-file-name-exists-p
+                                     "~/quicklisp/slime-helper.el")
+                                    (expand-file-name-exists-p
+                                     "~/var/quicklisp/slime-helper.el"))))
+         (load slime-helper))
+
+       (with-eval-after-load 'company
+         (setup (:straight slime-company)
+           (:option slime-company-completion 'fuzzy
+                    slime-company-after-completion nil)
+           (slime-setup '(slime-fancy slime-company))))))
+
+    (:sly
+     (setup (:straight sly)
+       (:option sly-kill-without-query-p t)
+       
+       (:also-load sly-autoloads)))))
 
 (setup (:straight (gemini-mode
                    :host nil
-- 
cgit 1.4.1-21-gabe81