From 8f24fa708731e844804c96cf6f5f9731909ce7ab Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 10 Apr 2021 17:32:11 -0500
Subject: Add `company'

- Hook into `prog-mode'
- Change some bindings
- Add `slime-company'
---
 init.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 767c8b3..ebbc6dd 100644
--- a/init.el
+++ b/init.el
@@ -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)
-- 
cgit 1.4.1-21-gabe81