From bf174a29f429c385acb1e81e822cae8908c8ff3f Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Thu, 28 Apr 2022 19:29:15 -0700
Subject: further simplifications

---
 emacs/custom/my-completion.el | 110 +++++++++++++++++-------------------------
 1 file changed, 45 insertions(+), 65 deletions(-)

(limited to 'emacs/custom/my-completion.el')

diff --git a/emacs/custom/my-completion.el b/emacs/custom/my-completion.el
index 005dc81..049007a 100644
--- a/emacs/custom/my-completion.el
+++ b/emacs/custom/my-completion.el
@@ -4,71 +4,51 @@
 
 ;;; Code:
 
-(require 'use-package)
-
-(use-package vertico
-  :ensure t
-  :init
-  (vertico-mode)
-  (vertico-multiform-mode 1)
-
-  (setq vertico-multiform-categories
-        '((consult-grep buffer)))
-
-  (setq vertico-multiform-commands
-        '((consult-imenu buffer)
-          (consult-ripgrep buffer)
-          (consult-org-heading buffer )
-          (consult-outline buffer))))
-
-(use-package orderless
-  :ensure t
-  :custom
-  (completion-styles '(orderless basic))
-  (completion-category-defaults nil) )
-
-(use-package marginalia
-  :ensure t
-  :init
-  (marginalia-mode))
-
-(use-package consult
-  :ensure t
-  :bind (("C-c h"   . consult-history)
-         ("C-c m"   . consult-mode-command)
-         ("C-x b"   . consult-buffer)
-         ("C-x 4 b" . consult-buffer-other-window)
-         ("C-x r b" . consult-bookmark)
-         ("C-x p b" . consult-project-buffer)
-         ("C-c i"   . consult-imenu)
-         ("C-c f"   . consult-git-grep)
-         ("C-c /"   . consult-ripgrep)
-         ("M-y"     . consult-yank-pop)
-         ("M-g e"   . consult-compile-error)
-         ("M-g f"   . consult-flymake)
-         ("M-g M-g" . consult-goto-line)
-         ("M-g O"   . consult-outline)
-         ("M-g o"   . consult-org-heading)
-         ("M-g m"   . consult-mark)
-         ("M-g k"   . consult-global-mark)
-         ("M-s l"   . consult-line)
-         ("M-s L"   . consult-line-multi)
-         ;; Isearch integration
-         ("C-s" . consult-isearch-history)
-         :map isearch-mode-map
-         ("M-e" . consult-isearch-history)   ;; orig. isearch-edit-string
-         ("M-s e" . consult-isearch-history) ;; orig. isearch-edit-string
-         ("M-s l" . consult-line) ;; needed by consult-line to detect isearch
-         ("M-s L" . consult-line-multi) ;; needed by consult-line to detect isearch
-         ))
-
-(use-package corfu
-  :ensure t
-  :custom
-  (corfu-cycle t)  ;; Enable cycling for `corfu-next/previous'
-  (corfu-auto t)   ;; Enable auto completion
-  :init
-  (corfu-global-mode))
+(require 'vertico)
+(require 'vertico-multiform)
+(require 'marginalia)
+(require 'corfu)
+
+(setq vertico-multiform-categories
+      '((consult-grep buffer)))
+
+(setq vertico-multiform-commands
+      '((consult-imenu buffer)
+        (consult-ripgrep buffer)
+        (consult-org-heading buffer )
+        (consult-outline buffer)))
+
+(setq completion-styles '(orderless basic))
+(setq completion-category-defaults nil)
+
+(setq corfu-cycle t)  ;; Enable cycling for `corfu-next/previous'
+(setq corfu-auto t)   ;; Enable auto completion
+
+(vertico-mode)
+(vertico-multiform-mode 1)
+(marginalia-mode)
+(corfu-global-mode)
+
+(global-set-key (kbd "C-c m") 'consult-mode-command)
+(global-set-key (kbd "C-x b") 'consult-buffer)
+(global-set-key (kbd "C-x 4 b") 'consult-buffer-other-window)
+(global-set-key (kbd "C-x r b") 'consult-bookmark)
+(global-set-key (kbd "C-x p b") 'consult-project-buffer)
+(global-set-key (kbd "C-c i") 'consult-imenu)
+(global-set-key (kbd "C-c f") 'consult-git-grep)
+(global-set-key (kbd "C-c /") 'consult-ripgrep)
+(global-set-key (kbd "C-c r") 'consult-recent-file)
+(global-set-key (kbd "M-y") 'consult-yank-pop)
+(global-set-key (kbd "M-g e") 'consult-compile-error)
+(global-set-key (kbd "M-g f") 'consult-flymake)
+(global-set-key (kbd "M-g M-g") 'consult-goto-line)
+(global-set-key (kbd "M-g O") 'consult-outline)
+(global-set-key (kbd "M-g o") 'consult-org-heading)
+(global-set-key (kbd "M-g m") 'consult-mark)
+(global-set-key (kbd "M-g k") 'consult-global-mark)
+(global-set-key (kbd "M-s l") 'consult-line)
+(global-set-key (kbd "M-s L") 'consult-line-multi)
 
 (provide 'my-completion)
+
 ;;; my-completion.el ends here
-- 
cgit 1.4.1