1 files changed, 30 insertions, 21 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
@@ -971,8 +980,8 @@ if ripgrep is installed, otherwise `consult-grep'."
 
 (setup (:straight which-key)
   (:option which-key-show-early-on-C-h t
-           which-key-idle-delay 0.05
-           which-key-idle-secondary-delay 0.05
+           which-key-idle-delay 1
+           which-key-idle-secondary-delay 0.5
            which-key-delay-functions '(acdw/which-key-delay-all-but))
 
   (defun acdw/which-key-delay-all-but (seq len)
@@ -981,9 +990,9 @@ if ripgrep is installed, otherwise `consult-grep'."
      ;; With C-z binds (`acdw/leader'), pop up right away
      ((string-prefix-p "C-z" seq :ignore-case) 0)
      ;; Also pop up right away if we're already entering keys
-     ((> len 1) 0)
-     ;; Otherwise, wait 1.25 seconds
-     (t 1.25)))
+     ((> len 1) which-key-idle-secondary-delay)
+     ;; Otherwise, wait
+     (t which-key-idle-delay)))
   
   (which-key-setup-minibuffer)
   (which-key-mode +1))