diff options
| -rw-r--r-- | .emacs.d/init.el | 11 | ||||
| -rwxr-xr-x | org/emacs.org | 14 |
2 files changed, 19 insertions, 6 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) 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 |