clean up some of the completion configurations

1 files changed, 3 insertions, 17 deletions

diff --git a/init.org b/init.org
index e1995e6..cbc3311 100644
--- a/init.org
+++ b/init.org
@@ -286,6 +286,7 @@ Automatically revert buffers if the file has changed on disk.
 #+end_src
 
 ** compile
+Start a compilation with =M-x compile=.
 
 #+begin_src emacs-lisp
 (use-package compile
@@ -304,6 +305,7 @@ Automatically revert buffers if the file has changed on disk.
 
 ** completions
 *** consult
+The =consult= package provides search and navigation commands based on Emacs completion function =completing-read=.
 
 #+begin_src emacs-lisp
 (use-package consult
@@ -311,14 +313,12 @@ Automatically revert buffers if the file has changed on disk.
   :bind (("C-c m"   . consult-mode-command)
 	 ("M-g o"   . consult-org-heading)
 	 ("C-x b"   . consult-buffer)
-	 ("C-x 5 b" . consult-buffer-other-frame)
 	 ("C-x r b" . consult-bookmark)
 	 ("C-x p b" . consult-project-buffer)
 	 ("C-c i"   . consult-imenu)
 	 ("M-g e"   . consult-compile-error)
 	 ("M-g g"   . consult-goto-line)
 	 ("M-g M-g" . consult-goto-line)
-	 ("M-g l"   . consult-goto-line)
 	 ("M-g m"   . consult-mark)
 	 ("M-g k"   . consult-global-mark))
 
@@ -371,6 +371,7 @@ Automatically revert buffers if the file has changed on disk.
 #+end_src
 
 *** corfu
+Corfu enhances in-buffer completion with a small completion popup.
 
 #+begin_src emacs-lisp
 (use-package corfu
@@ -385,15 +386,6 @@ Automatically revert buffers if the file has changed on disk.
 	 ("M-d"      . corfu-info-documentation)
 	 ("M-l"      . corfu-info-location)
 	 ("M-."      . corfu-move-to-minibuffer))
-  :preface
-  ;; see https://github.com/minad/corfu#completing-in-the-eshell-or-shell
-  (defun corfu-send-shell (&rest _)
-    "Send completion candidate when inside comint/eshell."
-    (cond
-     ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
-      (eshell-send-input))
-     ((and (derived-mode-p 'comint-mode)  (fboundp 'comint-send-input))
-      (comint-send-input))))
   :custom
   ;; Works with `indent-for-tab-command'. Make sure tab doesn't indent when you
   ;; want to perform completion
@@ -432,8 +424,6 @@ Automatically revert buffers if the file has changed on disk.
             (lambda ()
               (setq-local corfu-auto nil)
               (corfu-mode)))
-  (advice-add #'corfu-insert :after #'corfu-send-shell)
-
   :config
   (global-corfu-mode))
 #+end_src
@@ -466,7 +456,6 @@ Automatically revert buffers if the file has changed on disk.
   :ensure t
   :bind (("C-c . p" . completion-at-point)
 	 ("C-c . t" . complete-tag)
-	 ("C-c . d" . cape-dabbrev)
 	 ("C-c . h" . cape-history)
 	 ("C-c . f" . cape-file)
 	 ("C-c . k" . cape-keyword)
@@ -481,8 +470,6 @@ Automatically revert buffers if the file has changed on disk.
 	 ("C-c . r" . cape-rfc1345))
   :init
   ;; Add `completion-at-point-functions', used by `completion-at-point'.
-  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
-  (add-to-list 'completion-at-point-functions #'cape-ispell)
   (add-to-list 'completion-at-point-functions #'cape-file)
   (add-to-list 'completion-at-point-functions #'cape-abbrev))
 #+end_src
@@ -608,7 +595,6 @@ Automatically revert buffers if the file has changed on disk.
          ("C-c y i" . yas-insert-snippet)
          ("C-c y f" . yas-visit-snippet-file)
          ("C-c y n" . yas-new-snippet)
-         ("C-c y t" . yas-tryout-snippet)
          ("C-c y l" . yas-describe-tables)
          ("C-c y g" . yas-global-mode)
          ("C-c y m" . yas-minor-mode)