summaryrefslogtreecommitdiff
path: root/config/completion.el
diff options
context:
space:
mode:
authorbh <qn+git@excalibur.computer>2026-04-28 14:11:04 +0800
committerbh <qn+git@excalibur.computer>2026-04-28 14:11:04 +0800
commitfdacb2111ae1043d061151d06e62da5af9e76ba8 (patch)
tree6b25c8a85b518cf30c336046201dd04cce82be0f /config/completion.el
parentee05e6544cd350f7ef999f4fcc265ee4cd55ddad (diff)
Fresh Start!
Diffstat (limited to 'config/completion.el')
-rw-r--r--config/completion.el116
1 files changed, 0 insertions, 116 deletions
diff --git a/config/completion.el b/config/completion.el
deleted file mode 100644
index 1811baf..0000000
--- a/config/completion.el
+++ /dev/null
@@ -1,116 +0,0 @@
-;; Completion Framework - Vertico + Consult + Marginalia + Orderless
-;; Modern, minimal completion system based on Emacs' built-in completing-read
-
-;; =====================================
-;; Vertico - Vertical completion UI
-;; =====================================
-(use-package vertico
- :init
- (vertico-mode 1)
- :config
- ;; Cycle through candidates
- (setq vertico-cycle t)
- ;; Number of candidates to display
- (setq vertico-count 15))
-
-;; =====================================
-;; Orderless - Flexible completion style
-;; =====================================
-(use-package orderless
- :config
- ;; Use orderless for completion
- (setq completion-styles '(orderless basic)
- completion-category-defaults nil
- completion-category-overrides '((file (styles partial-completion)))))
-
-;; =====================================
-;; Marginalia - Rich annotations
-;; =====================================
-(use-package marginalia
- :init
- (marginalia-mode 1)
- :config
- ;; Bind in minibuffer to toggle annotations
- (define-key minibuffer-local-map (kbd "M-A") 'marginalia-cycle))
-
-;; =====================================
-;; Consult - Enhanced commands
-;; =====================================
-(use-package consult
- :bind
- (;; C-c bindings (mode-specific-map)
- ("C-c h" . consult-history)
- ("C-c m" . consult-mode-command)
- ("C-c k" . consult-kmacro)
-
- ;; C-x bindings (ctl-x-map)
- ("C-x M-:" . consult-complex-command)
- ("C-x b" . consult-buffer) ;; Replace switch-to-buffer
- ("C-x 4 b" . consult-buffer-other-window)
- ("C-x 5 b" . consult-buffer-other-frame)
- ("C-x r b" . consult-bookmark)
-
- ;; M-g bindings (goto-map)
- ("M-g e" . consult-compile-error)
- ("M-g f" . consult-flymake)
- ("M-g g" . consult-goto-line)
- ("M-g M-g" . consult-goto-line)
- ("M-g o" . consult-outline)
- ("M-g m" . consult-mark)
- ("M-g k" . consult-global-mark)
- ("M-g i" . consult-imenu)
- ("M-g I" . consult-imenu-multi)
-
- ;; M-s bindings (search-map)
- ("M-s d" . consult-find)
- ("M-s D" . consult-locate)
- ("M-s g" . consult-grep)
- ("M-s G" . consult-git-grep)
- ("M-s r" . consult-ripgrep)
- ("M-s l" . consult-line)
- ("M-s L" . consult-line-multi)
- ("M-s k" . consult-keep-lines)
- ("M-s u" . consult-focus-lines)
-
- ;; Isearch integration
- ("M-s e" . consult-isearch-history)
- :map isearch-mode-map
- ("M-e" . consult-isearch-history)
- ("M-s e" . consult-isearch-history)
- ("M-s l" . consult-line)
- ("M-s L" . consult-line-multi)
-
- ;; Minibuffer history
- :map minibuffer-local-map
- ("M-s" . consult-history)
- ("M-r" . consult-history))
-
- :config
- ;; Preview configuration
- (setq consult-preview-key 'any) ;; Preview as you type
-
- ;; Narrowing configuration
- (setq consult-narrow-key "<")) ;; Use < to narrow
-
-;; =====================================
-;; Embark - Actions on candidates
-;; =====================================
-(use-package embark
- :bind
- (("C-." . embark-act) ;; Pick an action using completion
- ("C-;" . embark-dwim) ;; Good alternative: M-.
- ("C-h B" . embark-bindings)) ;; Alternative for `describe-bindings'
- :config
- ;; Hide the mode line of the Embark live/completions buffers
- (add-to-list 'display-buffer-alist
- '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
- nil
- (window-parameters (mode-line-format . none)))))
-
-;; Embark + Consult integration
-(use-package embark-consult
- :after (embark consult)
- :hook
- (embark-collect-mode . consult-preview-at-point-mode))
-
-(provide 'completion)