From b87a798a9bc3349a2045d97bbf123773148580ab Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 30 Apr 2023 09:53:00 +0300 Subject: emacs: add slime-fancy and binds for company --- .emacs.d/init.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to '.emacs.d/init.el') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index f1257c9..ecfba6e 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -539,6 +539,11 @@ Contains the list of packages that need to be installed.") :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) @@ -565,8 +570,10 @@ Contains the list of packages that need to be installed.") (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) -- cgit v1.2.3