1 files changed, 25 insertions, 16 deletions

@@ -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