add marginalia/orderless/vertico/consult/embark/corfu/cape/corfu-doc

.gitignore

@@ -5,3 +5,4 @@
 /places
 /ido.last
 /history
+/recentf

.gitmodules

@@ -28,3 +28,27 @@
 [submodule "site-lisp/mwim"]
 	path = site-lisp/mwim
 	url = https://github.com/alezost/mwim.el.git
+[submodule "site-lisp/marginalia"]
+	path = site-lisp/marginalia
+	url = https://github.com/minad/marginalia.git
+[submodule "site-lisp/vertico"]
+	path = site-lisp/vertico
+	url = https://github.com/minad/vertico.git
+[submodule "site-lisp/consult"]
+	path = site-lisp/consult
+	url = https://github.com/minad/consult.git
+[submodule "site-lisp/corfu"]
+	path = site-lisp/corfu
+	url = https://github.com/minad/corfu.git
+[submodule "site-lisp/cape"]
+	path = site-lisp/cape
+	url = https://github.com/minad/cape.git
+[submodule "site-lisp/orderless"]
+	path = site-lisp/orderless
+	url = https://github.com/oantolin/orderless.git
+[submodule "site-lisp/embark"]
+	path = site-lisp/embark
+	url = https://github.com/oantolin/embark.git
+[submodule "site-lisp/corfu-doc"]
+	path = site-lisp/corfu-doc
+	url = https://github.com/galeo/corfu-doc.git

init.el

@@ -58,6 +58,12 @@ If freezing sometimes, decrease it. If stuttering, increase it.")
   (expand-file-name ".cache" creature/config-dir)
   "Cache directory of Creature.")
 
+(defconst creature/prefix-key "M-m"
+  "Prefix key for custom keybindings.")
+
+(define-prefix-command 'creature/map)
+(global-set-key (kbd creature/prefix-key) 'creature/map)
+
 (defconst creature/pkg-dir
   (expand-file-name "site-lisp" creature/config-dir)
   "Package directory.")
@@ -102,6 +108,7 @@ If freezing sometimes, decrease it. If stuttering, increase it.")
 (require 'init-git)
 (require 'init-edit)
 (require 'init-theme)
+(require 'init-vertico)
 
 (require 'which-key)
 (setq which-key-show-early-on-C-h t)

lisp/init-built-in.el

@@ -52,6 +52,15 @@
 (setq auto-save-file-name-transforms
       `((".*" ,temporary-file-directory t)))
 
+(with-eval-after-load 'recentf
+  (setq recentf-max-saved-items 1000)
+  ;; (add-to-list 'recentf-exclude "bookmarks")
+  (add-to-list 'recentf-exclude "COMMIT_EDITMSG\\'")
+  (add-to-list 'recentf-exclude "node_modules")
+
+  (with-eval-after-load 'package
+    (add-to-list 'recentf-exclude (expand-file-name package-user-dir))))
+
 ;; Disable bell
 (setq visible-bell          nil
       ring-bell-function    'ignore)

lisp/init-edit.el

@@ -26,4 +26,8 @@
    ("C-e" . mwim-end-of-code-or-line))
  "mwim")
 
+
+(setq backward-delete-char-untabify-method 'hungry)
+
+
 (provide 'init-edit)

lisp/init-vertico.el

@@ -0,0 +1,44 @@
+;; -*- coding: utf-8; lexical-binding: t; -*-
+
+(require 'marginalia)
+(marginalia-mode 1)
+
+
+(require 'vertico)
+(vertico-mode 1)
+(require 'vertico-indexed)
+(vertico-indexed-mode 1)
+
+
+(require 'corfu)
+(global-corfu-mode 'toggle)
+(setq corfu-auto t
+      corfu-auto-delay 0.05
+      corfu-auto-prefix 2
+      corfu-quit-no-match t)
+
+(require 'orderless)
+(setq completion-styles '(orderless basic partial-completion flex)
+      completion-category-overrides '((file (styles basic partial-completion))))
+
+(require 'corfu-doc)
+(add-hook 'corfu-mode-hook #'corfu-doc-mode)
+
+(lazy-load-local-keys
+ '(("M-SPC" . corfu-quick-complete))
+ corfu-map
+ "corfu-quick")
+
+(lazy-load-global-keys
+ '(("C-'" . cape-file))
+ "cape")
+
+
+(lazy-load-global-keys
+ '(("fr" . consult-recent-file))
+ "consult" creature/prefix-key)
+(with-eval-after-load 'consult
+  (recentf-mode 1))
+
+
+(provide 'init-vertico)