Added Dashboard

1 files changed, 116 insertions, 0 deletions

diff --git a/config/completion.el b/config/completion.el
new file mode 100644
index 0000000..f723966
--- /dev/null
+++ b/config/completion.el
@@ -0,0 +1,116 @@
+;; 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)