emacs: Use consult

1 files changed, 17 insertions, 0 deletions

diff --git a/.config/emacs/modules/mm-completion.el b/.config/emacs/modules/mm-completion.el
index 0de3170..91ecd5e 100644
--- a/.config/emacs/modules/mm-completion.el
+++ b/.config/emacs/modules/mm-completion.el
@@ -58,4 +58,21 @@
 (use-package savehist-mode
   :hook (after-init . savehist-mode))
 
+
+;;; Enhanced Replacements for Builtins
+
+;; TODO: Investigate other commands
+(use-package consult
+  :ensure t
+  :bind ( ([remap switch-to-buffer] . consult-buffer)
+          :map consult-narrow-map
+          ("?" . consult-narrow-help))
+  :config
+  (with-eval-after-load 'project
+    (keymap-set project-prefix-map "b" #'consult-project-buffer))
+  (with-eval-after-load 'pulsar
+    (setopt consult-after-jump-hook nil)
+    (dolist (command #'(pulsar-recenter-top pulsar-reveal-entry))
+      (add-hook 'consult-after-jump-hook command))))
+
 (provide 'mm-completion)