emacs: add slime-fancy and binds for company

1 files changed, 10 insertions, 4 deletions

diff --git a/org/emacs.org b/org/emacs.org
index abb6b9f..c5610a4 100755
--- a/org/emacs.org
+++ b/org/emacs.org
@@ -18,7 +18,6 @@ Set backup fails at ~~/Trash~
   (setq backup-directory-alist '((".*" . "~/.Trash")))
 #+end_src
 * Setting up Packages
-** Define and install packages
 ** List of required packages
 Request the following packages:
 #+begin_src emacs-lisp
@@ -73,7 +72,7 @@ Request the following packages:
 				org-auto-tangle))
 #+end_src
 ** Installation & activation
-Set our ~package-archives~, and install our packages
+Set ~package-archives~, and install packages
 #+begin_src emacs-lisp
   (setq package-archives '(("melpa" . "https://melpa.org/packages/")
 			   ("org" . "https://orgmode.org/elpa/")
@@ -609,6 +608,11 @@ Hook with ~dired-mode~
     :config
     (setq global-company-mode t))
 
+  (define-key company-active-map (kbd "\C-n") 'company-select-next)
+  (define-key company-active-map (kbd "\C-p") 'company-select-previous)
+  (define-key company-active-map (kbd "\C-d") 'company-show-doc-buffer)
+  (define-key company-active-map (kbd "M-.") 'company-show-location)
+
   (use-package dap-mode
     :custom
     (lsp-enable-dap-auto-configure nil)
@@ -641,8 +645,10 @@ Hook with ~dired-mode~
 
   (use-package slime-company
     :after (slime company)
-    :config (setq slime-company-completion 'fuzzy
-		  slime-company-after-completion 'slime-company-just-one-space))
+    :config
+    (setq slime-company-completion 'fuzzy
+	  slime-company-after-completion 'slime-company-just-one-space)
+    (slime-setup '(slime-fancy slime-company)))
 
   (add-hook 'lisp-mode-hook #'rainbow-delimiters-mode)
 #+end_src