Proper way to specify thing at point for consult

2 files changed, 6 insertions, 10 deletions

diff --git a/lisp/consult-dash.el b/lisp/consult-dash.el
index b78b65f..682c26c 100644
--- a/lisp/consult-dash.el
+++ b/lisp/consult-dash.el
@@ -151,10 +151,6 @@
                               :history '(:input consult-dash--history))))
     (dash-docs-browse-url search-result)))
 
-(defun consult-dash-at-point ()
-  (interactive)
-  (consult-dash (thing-at-point 'symbol)))
-
 ;; Embark integration
 (with-eval-after-load "embark"
   (embark-define-keymap consult-dash-embark-keymap
diff --git a/lisp/ravi-init-completion.el b/lisp/ravi-init-completion.el
index 402a598..98407e8 100644
--- a/lisp/ravi-init-completion.el
+++ b/lisp/ravi-init-completion.el
@@ -339,25 +339,25 @@
   (embark-collect-mode . consult-preview-at-point-mode))
 
 (use-package dash-docs
-  :if (member ravi/use-selection-system '(selectrum vertico))
   :defer t)
 (use-package consult-dash
-  :commands (consult-dash)
-  :bind (("M-s d" . consult-dash-at-point))
+  :if (member ravi/use-selection-system '(selectrum vertico))
+  :bind (("M-s d" . consult-dash))
   :init
   (with-eval-after-load 'avy
-    (defun avy-action-dash-at-point (pt)
+    (defun avy-action-dash (pt)
       (save-excursion
         (goto-char pt)
-        (consult-dash-at-point))
+        (consult-dash))
       (select-window (cdr (ring-ref avy-ring 0)))
       t)
-    (setf (alist-get ?D avy-dispatch-alist) 'avy-action-dash-at-point))
+    (setf (alist-get ?D avy-dispatch-alist) 'avy-action-dash))
 
   :config
   ;; Ensure that niceties are loaded too
   (require 'embark)
   (require 'marginalia)
+  (consult-customize consult-dash :initial (thing-at-point 'symbol))
   :ensure nil)
 
 (use-package consult-dir