Add `company'

- Hook into `prog-mode'
- Change some bindings
- Add `slime-company'

1 files changed, 15 insertions, 1 deletions

@@ -716,6 +716,14 @@ if ripgrep is installed, otherwise `consult-grep'."
                  (apheleia--get-formatter-command))
       (indent-region (point-min) (point-max)))))
 
+(setup (:straight company)
+  (:hook-into prog-mode)
+  (:with-map company-active-map
+    (:bind "C-n" company-select-next
+           "C-p" company-select-previous
+           "C-d" company-show-doc-buffer
+           "M-." company-show-location)))
+
 ;;; Lisps
 (defvar lispy-modes '(emacs-lisp-mode
                       eval-expression-minibuffer
@@ -792,7 +800,13 @@ don't want."
                                   "~/quicklisp/slime-helper.el")
                                  (expand-file-name-exists-p
                                   "~/var/quicklisp/slime-helper.el"))))
-      (load slime-helper))))
+      (load slime-helper))
+
+    (with-eval-after-load 'company
+      (setup (:straight slime-company)
+        (:option slime-company-completion 'fuzzy
+                 slime-company-after-completion 'slime-company-just-one-space)
+        (slime-setup '(slime-fancy slime-company))))))
 
 (when (executable-find "fennel")
   (setup (:straight fennel-mode)