diff options
| author | Thanos Apollo <[email protected]> | 2023-04-30 09:53:00 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-04-30 09:53:00 +0300 |
| commit | b87a798a9bc3349a2045d97bbf123773148580ab (patch) | |
| tree | 0a133aaf77a3121ae2abdbadca01882254832d9e /.emacs.d | |
| parent | c9843bb6ba3aecf21ddd012bf15b7f08c96081e9 (diff) | |
emacs: add slime-fancy and binds for company
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/init.el | 11 |
1 files changed, 9 insertions, 2 deletions
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) |