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 --- org/emacs.org | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'org') 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 -- cgit v1.2.3