Load slime-helper.el if it exists

I couldn't find a function that would return a filename /if/ it exists, so I
had to write one: `expand-file-name-exists-p'.  Might change the name at some
point.

2 files changed, 15 insertions, 1 deletions

@@ -759,7 +759,13 @@ if ripgrep is installed, otherwise `consult-grep'."
                         (executable-find "sbcl")))
   (setup (:straight slime)
     (require 'slime-autoloads)
-    (:option inferior-lisp-program lisp-bin)))
+    (:option inferior-lisp-program 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))))
 
 (when (executable-find "fennel")
   (setup (:straight fennel-mode)
@@ -62,6 +62,14 @@ each hook in HOOKS."
     (when (file-exists-p file)
       (load-file file))))
 
+(defun expand-file-name-exists-p (&rest expand-file-name-args)
+  "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
+  its name if it exists, or NIL otherwise."
+  (let ((file (apply #'expand-file-name expand-file-name-args)))
+    (if (file-exists-p file)
+        file
+      nil)))
+
 (defun acdw/dir (&optional file make-directory)
   "Place Emacs files in one place.